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PROLOGO 


Un ordenador es simplemente una máquina que almacena información. 


Hay algo más, y definitivo. Un ordenador puede tratar los datos que se le han suministrado, siempre y cuando se 
le asigne un plan de trabajo. Podemos solicitarle, después de haberle proporcionado los criterios necesarios, que nos 
ordene alfabéticamente toda una lista de palabras. Como ha escrito el gran especialista Bruno Lussato, todo empezó 
con el organillo. En las esquinas de las calles, músicos ciegos hacían girar sin descanso un manubrio que arrastraba 
un rollo de papel perforado. Cuando las varillas metálicas de que constaba el artilugio hallaban una perforación, 
quedaban sueltas y producían una nota. Un automatismo del mismo tipo había sido adaptado al telar. Una especie de 
“palpador” recorría los rollos de papel perforado y transmitía los datos (perforaciones, no perforaciones) al instru- 
mento, que podía así tejer indefinidamente ateniéndose a los datos. Nadie pensaba entonces en el cálculo: todo lo que 
se pedía a la máquina herramienta era realizar, siguiendo un orden determinado, un cierto número de operaciones 
mecánicas. De entre los antepasados del ordenador se cita siempre la máquina de cálculos de Pascal. La sofisticación 
electrónica que sustituía perforaciones por lámparas conectadas mediante hilos eléctricos no tardaría en llegar por 
exigencias de los misiles mortíferos alemanes en la segunda guerra mundial. Pero el primer aparato homologable 
a lo que hoy entendemos por ordenador fue un verdadero monstruo que constaba de un sinfin de lámparas que pronto 
serían sustituidas por tubos eléctricos. La primera y verdadera máquina de “tratamiento automático de datos” nació 
en 1946 en los Estados Unidos y fue bautizada como ENIAC. Constaba de 18.000 tubos y 5.000 conmutadores y 
pesaba treinta toneladas. En 1947 el famoso Van Neumann introdujo en ella el primer programa. 


Este prototipo servía para contar, calcular, comparar, computar. El invento del transistor arrinconó a los tubos 
eléctricos. Diminutos elementos sólidos constituidos por capas de metales raros (silicio) iban a cumplir su cometido. 
Los aparatos entonces fueron menos voluminosos, menos frágiles, más duraderos y más baratos. 


El proceso de miniaturización de los componentes del ordenador corre en paralelo con la masiva socialización de 
la informática (neologismo de origen francés que deriva de las palabras información y automática y que ha hecho 
fortuna en sustitución de la expresión anglosajona “science computer”) y de sus productos. La caída en picado de los 
costos ha hecho posible el milagro de que los ordenadores estén en las oficinas, en las fábricas, en el hogar, en la 
escuela. Los ordenadores están en el centro de nuestra vida y hoy no se es culto si no se conoce el funcionamiento de 
estas máquinas. A las máquinas todavía hay que hablarles en su lenguaje y para eso existen los “traductores”, los 
especialistas en informática, que transforman el lenguaje humano en lenguaje de la máquina. El día de mañana 
dispondremos de ordenadores que poco les faltará para comprender directamente nuestro lenguaje. Podremos 
comunicarnos con ellos sin necesidad de aprender esta disciplina que es la informática, recurriendo a un simple modo 
de empleo. Entre tanto, entenderse con la máquina pasa por conocer un lenguaje que la máquina “entienda”, de ahí el 
interés de los Gobiernos es introducir la informática en los colegios. 


En España la enseñanza asistida por ordenador lleva un considerable retraso con respecto a la mayoría de los 
países europeos. No obstante, tanto el Plan Electrónico e Informático Nacional (PEIN) como el denominado proyecto 
Atenea aspiran a enganchar a nuestra sociedad al tren del futuro. Se han destinado ya 500 millones de pesetas para la 
puesta en marcha del proyecto Atenea cuyo objetivo es terminar la presente década con la alfabetización de los 
escolares españoles en informática. En una primera fase se introducirán cinco ordenadores en numerosos colegios 
públicos a título experimental. Los dos últimos años de este proyecto se dedicarán a la adquisición masiva de 
ordenadores. Los expertos del Ministerio de Educación seleccionarán los tipos de lenguaje básico para manejar la 
máquina y fomentarán la creación de programas educativos para los colegios. 


El libro que ahora tienes en tus manos es fruto de la publicación, a manera de fascículos coleccionables, de 
programas comentados dirigidos fundamentalmente al mundo educativo. La creciente popularidad del microcompu- 
tador ZX Spectrum necesitaba un complemento que permitiera sacar al usuario el máximo partido de máquina. Con 
los programas didácticos comentados en este libro podrás aprender a programar y a resolver problemas concretos. 


El índice que resume el contenido de las cassettes está producido por una impresora GP-50S, utilizando un 
programa que llamamos NOCIN y que sirve para listar el contenido de una cassette. En el listado de cada programa 
los datos tienen el siguiente significado: Cada programa empieza por una línea de asteriscos debajo de la cual viene 
contador= y un número. Como su nombre indica este número es el tiempo, en unidades arbitrarias, no en segundos, 
que van pasando desde el principio del cassette, y está puesto con la intención de que sirva de referencia a fin de 
saber dónde está ubicado un programa en la cinta. A la derecha de contador viene el volumen y número de cassette. 
Entre las dos rayas va escrito el nombre con los números del 1 al O debajo, para que sepas el número de caracteres 
que tiene el nombre. A continuación, la palabra programa indica, que con este nombre está registrado un programa y 
no bytes o una variable. Después de la raya viene como primer dato el número de bytes que tiene el programa. 
A continuación el número de bytes que ocupan las variables de este programa, si no se ha escrito previamente CLEAR 
Y ENTER como en los nuestros en cuyo caso escribirá: Variables borradas previamente. Por último se indica si el 
programa se ejecuta inmediatamente después de cargado o no, y a partir de qué línea. 


Estamos definitivamente inmersos en una Sociedad de la Información. Consumimos la información sobre todas 
las cosas y parece que la actividad humana se orienta hacia una especificidad que es la del consumo de información. 
La información y el conocimiento nos llevan de la mano a la educación. La educación se encuentra en crisis profunda 
a causa de estos fenómenos nuevos. No se sabe ya qué aprender en un flujo de conocimientos demasiado amplios, 
por-consiguiente, los programas de enseñanza están pletóricos. Es necesario reformar completamente nuestras ideas 
de la educación. La escuela será el espacio en el que se “aprende a aprender” y este libro quiere apoyar ese empeño. 
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Indice de la cassette 


INTRODUCCION 


El índice que viene a continuación está producido por una impresora GP--50S, utilizando un programa que 
llamamos NOCIN,; el cual sirve para listar el contenido de una cassette. En el listado de cada programa los datos 
escritos tienen el siguiente significado: Cada programa empieza por una línea de asteriscos debajo de la cual viene 
contador = y un número. Como su nombre indica este número es el tiempo, en unidades arbitrarias, no en segundos, 
que van pasando desde el principio del cassette, y está puesto con la intención de que sirva de referencia a fin de saber 
dónde está ubicado un programa en la cinta. A la derecha del contador viene el volumen y número de cassette. 


Entre las dos rayas va escrito el nombre con los números del 1 al O debajo, para que sepáis el número de 
caracteres que tiene el nombre. A continuación la palabra Programa indica, que con ese nombre está registrado un 
programa y no bytes o una variable. 


Después de la raya viene como primer dato el número de bytes que tiene el programa. A continuación el número 
de bytes que ocupan las variables de ese programa, si no se ha escrito previamente CLEAR y ENTER como en los 
nuestros en cuyo caso escribirá: Variables borradas previamente. Por último se indica si el programa se ejecuta 
inmediatamente después de cargado o no, y partir de que línea. Este programa os lo incluiremos, más adelante, en 
una cassette, ya que tiene una subrutina en código máquina. 
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APLICACIONES SENCILLAS 


PORTADA 


Este es un programa ideado para anunciar SIFT, S.A. Probablemente, será la única vez, que un programa de 
este tipo se incluye en una cassette. 


Si se utiliza la opción de cargar un nuevo programa el computador lo carga, y nos responde si es un programa que 
no se pone en marcha automáticamente, C Nonsense in BASIC, 830:1. No preocuparse ya que el programa ha sido 
cargado correctamente. Escribir CLS y ENTER. 
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LET a=LEN n5: FOR i=3 TO 18 

To oné=n$+" ": NEXT 1 

FOR iz1 TO 10: FRINT AT 10, 
PAPER 4d; n$tild: NEXT á 

NEXT i 

LOAD n$ 

REM DIBLUJIA CASSETTE 

CEM alo 

G6 SUB 1100: 50 SUB 13001 
LET_PU=0: LET pap=2: 60 3U5 
: SUB 1500: LET Ppap=5: G 


tam=5: REM tam=4,5%,12 
hor=tam*S-1 
ver=zhor+tamed 
alt=InNT ((176-verids21 
Papr== 
diblla PENE! 
0,alt 

CRA PAPER 

CRA PAPER 

CRAI) PAPER 

CRA PAPER 

RETURN 

REM Dit. 

REM 

FOR i=0 TO 3 

ELOT 1,a3lt+ver+i 

CRA hor,a 

CRAL 9D, -ver 

NEXT 1 

RETURN 
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APLICACIONES SENCILLAS 
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FOR 1=6 TO 15+pU 
20 PRINT AT i,1, PAPER Par," 
GEEP 0.01,i+14 
NEXT 1 
RETURN 
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SUBRUTINAS 


1) Dibuja la cassette. 
Esta subrutina contiene otras cinco: 


a) Cálculo de posición: contiene las variables utilizadas y calcula las dimensiones de la cassette. 
b) Dibuja caja: dibuja un cuadrado en la posición de la pantalla indicada por la variable alt. 
c) Dibuja perspectiva caja: da a la caja sensación de relieve dibujando la perspectiva. 


d) Dibuja el fondo de la cara de la cassette: escribe un “string” con los espacios pertinentes para cambiar el 
color del fondo. 


e) Numera la cassette: Esta subrutina escribe número y volumen de la cassette dando a estas letras sensación de 
parpadeo suave cambiando el color de la tinta. 


APLICACIONES SENCILLAS 


2) Dibuja diagrama. 


Esta subrutina dibuja el diagrama de SIFT, S.A.: En realidad es la línea 2020 la que dibuja el diagrama, el resto 
de las líneas, o cambian el color del fondo de la cassette, líneas 2030 y 2040, o escriben SIFT S.A., líneas 2050 y 
2070, o escriben PRESENTA línea 2080. 


Cambia fondo. 


Esta subrutina utiliza la función SCREEN $ para cambiar el fondo y transformar la cassette en el marco de una 
puerta. 


Dibuja puerta. 


La subrutina dibuja una puerta que se abre progresivamente más deprisa. El dibujo que se produce en la puerta al 
abrirse es accidental y se debe a la manera en la que la subrutina simula la apertura. Desafiamos a un lector 
curioso a que averigiie por qué se produce. 


5) Dibuja en diagonal. 
Dibuja la recta que partiendo de un punto de la pantalla llega hasta los bordes. 
6) Escribe con movimiento. 


Esta subrutina permite escribir un “string” situado en a$ centrándolo a la altura determinada por y. 


PROGRAMA 


Línea 40: Escribe el cartel de apagar la cassette. 

Líneas 70 a 110: Dibujan cassette y puerta utilizando las subrutinas correspondientes. 

Línea 120: Esta curiosa línea imita el papel a rayas horizontales que se emplea en las grandes impresoras. 
Líneas 130 a 210: Escriben el índice de la cassette, utilizando la subrutina “escribe con movimiento”. 
Líneas 700 a 840: Permiten escoger y cargar un programa de la cassette. 


APLICACIONES SENCILLAS 


TIRALINEAS 


Con este programa, diseñado para el entretenimiento de niños y grandes, se puede dibujar en la pantalla punto a 
punto, es decir, “pixel” a “pixel”. 


El programa define un papel, que es la pantalla, y un lápiz representado por la punta del mismo. La pantalla 
tiene, unos límites, como todo papel, que son los siguientes: 


Límite superior de x = lsx = 254 
Límite inferior dex = lix= 0 
Límite superior de y = lsy = 165 
Límite inferior de y = liy= 0 


El punto que representa el lápiz, tiene unas coordenadas, una abcisa x y una ordenada y, ambas tienen que estar 
dentro de esos límites. 


Las teclas 5, 6, 7 y 8: mueven el lápiz “pixel” a “pixel” en las direcciones indicadas encima de ellas. 


La tecla BREAK SPACE: Permite poner en marcha una serie de opciones del programa. Cuando se aprieta y el 
computador se da cuenta de que ha sido pulsada, cambia de sonido y espera que se apriete otra tecla. Tanto para 
poner en marcha las opciones que a continuación se indican, como para volver al sistema normal de dibujo, hay que 
apretar esta tecla. Algunas de las opciones son independientes, y pueden ser utilizadas al mismo tiempo, pero se 
disminuye progresivamente la velocidad del lápiz, porque el computador tiene que hacer más cosas entre un punto y 
el siguiente. : 


Como todas las teclas tienen autorrepetición hemos utilizado la misma como ayuda en determinadas opciones: 
por ejemplo al borrar. La autorrepetición en las teclas es ajustable en el ZX SPECTRUM y esto afecta al programa; 
así poniendo también un ejemplo: la variable del sistema PEPDEL regula el tiempo, en cincuentavos de segundo, que 
es necesario tener apretada una tecla para que empiece a repetirse. Al principio este tiempo es de 35 pero con 15 suele 
ser suficiente, para cambiarlo escribir POKE 23561,15 y apretar ENTER. La variable REPPER establece el tiempo 
en cincuentavos de segundo, que pasan entre una repetición y la siguiente. Este tiempo está fijado en 5 cincuentavos 
de segundo pero se puede reducir a uno escribiendo POKE 23562,1. Estas dos variables, pueden ser alargadas de la 
misma manera, si el que utiliza el programa es un niño pequeño, por eso no las hemos variado al principio del 
programa, pero se puede hacer incluyendo una línea 1075 POKE 23561,15:POKE 23562,1 que las variará al empezar 
el programa. 


Opciones que se pueden utilizar después de apretar BREAK SPACE: 
Teclas 1 y 2: 


La tecla 1 permite dibujar en diagonal. Una vez que se aprietan las teclas 5, 6, 7 y 8 dibujarán en diagonal de 450 
con respecto a la horizontal, la tecla 5 arriba y a la izquierda, la tecla 6 abajo y a la izquierda, la tecla 7 arriba y a la 
derecha y la tecla 8 abajo y a la derecha. Para volver a la normalidad apretar el 2 después de haber apretado otra vez 
BREAK SPACE. 


APLICACIONES SENCILLAS 


Teclas 0 y 9: 


La tecla cero permite borrar lo dibujado, una vez accionada aparece un punto parpadeante que indica dónde 
está la punta de la goma si se mantiene apretada cualquiera de las teclas 5, y, 7 y 8 el punto se acelera, deja de verse y 
borra todo punto negro que encuentra a su paso. La tecla 9 anula a la 0. 


Teclas C y N: 


La tecla C consigue que se escriba en la parte superior de la pantalla las coordenadas de cada punto que se pinta. 
La tecla N suprime esta escritura pero no borra la última coordenada. 


Tecla 3: 


Permite limitar la pantalla donde se pinta. En realidad esta opción sólo cambia los límites de la pantalla 
preguntando los nuevos valores de lsx, lix, lsy y liy. 


Estos límites, en condiciones normales, son ignorados por el programa, salvo si se utilizan las opciones l ó p. 


Teclas L y K: 


La tecla L limita la pantalla a una ventana marcada por los límites: lsx, lix, Isy y liy colocando el lápiz 
automáticamente dentro de los límites no conservándose la posición anterior, con lo que la opción k, que anula los 
límites de la ventana, deja el lápiz donde está en ese momento, y no lo devuelve a su posición anterior. 


Tecla X: 


Permite variar la posición del lápiz en la pantalla. En esta opción, al contrario que con la opción l, nosotros 
podemos engañar al computador y darle coordenadas de un punto que esté fuera de la pantalla. 


Esto es fácil de variar reformando ligeramente la subrutina, cambia xy, que comienza en la línea 4600, pero 
pensando en la ilusión infantil de “ver qué pasa” no lo hemos hecho. Lo que sucede, es que el computador señala el 
error y se detiene; para continuar escribir: LET x = 10:LET y = 10 y apretar ENTER; a continuación CONT y 
ENTER. 


Tecla T: 


Cambia los colores del lápiz, y del papel del cuadrado de 8 x 8 “pixel” donde está el lápiz. Poniendo el mismo 
color al papel y al lápiz se dibuja a trazos gruesos. 


Teclas CAPS SHIFT y V: 


Borra la pantalla. Es la única opción que utiliza una mayúscula y ello lo hemos hecho para evitar borrar la 
pantalla accidentalmente. 


Tecla P: 
Permite rellenar con el color del lápiz un dibujo. 


Como esta opción utiliza los límites: sx, lix, Isy y liy, dentro de estos límites rellena, entre las líneas superior e 
inferior y derecha e izquierda más cercana a ¡os límites, no teniendo en cuenta las líneas que haya entre éstos. Por esta 
razón, y también por ser bastante lento, es importante poner bien los límites de la figura a rellenar. Recomendamos 
familiarizarse con la opción antes de utilizarla en un dibujo muy laborioso. Pero creemos que puede ser muy útil 
después de conocer como funciona. 


APLICACIONES SENCILLAS 


Una vez que se ha rellenado el programa vuelve a funcionar, y esto lo comentamos porque si los límites son 
mucho mayores que la figura desde que termina de rellenar hasta que termina la subrutina, llegando a los límites que 
le hemos puesto, puede pasar un buen rato en el que el computador aparentemente ha dejado de funcionar y el 
probrecillo está calculando por orden nuestra. 


Tecla S (SAVE): 
Permite guardar el dibujo, tal cual está en la pantalla, en una cassette para poderlo continuar en otro momento. 
Tecla J (LOAD): 
Permite cargar un dibujo de la cassette, pide el nombre y lo carga. 
Tecla Z: 
Permite copiar en la impresora la pantalla tal cual está. 
Tecla F: 


Fin del programa. 


PRACTICAS CON EL 
TECLADO 


Límites de la pantalla y opciones 3, k, 1, p y ó. 


El 3 limita una ventana en la pantalla, pero sin la utilización de la opción l esta ventana no se fija, la opción 1 
utiliza los límites marcados por la opción 3 y en su defecto los límites de la pantalla. La opción p rellena los dibujos 
entre los límites de la pantalla, emitiendo un sonido de vez en cuando. 


APLICACIONES SENCILLAS 


Si los límites de la pantalla son muy grandes tarda mucho tiempo, ejemplo: dibuja un cuadrado definido por las 
coordenadas (100,100), (120,100), (120,120), (100,120). Ahora, con los límites iniciales de la pantalla utilizar la 
opción p. Esta opción tarda 23 minutos en rellenar el cuadro y aproximadamente 48 minutos en volver al programa. 


Pero hay una opción supletoria para, una vez que rellenemos el cuadrado, volver al programa principal y se 
logra apretando la tecla o. 


Por otro lado: 
Si el límite inferior de x 
Si el límite superior de x 
Si el límite inferior de y = liy s 
Si el límite superior de y = Isy = 122; 

la opción p tarda 35 segundos en rellenar el cuadrado y 50 segundos en volver al programa. 


lix 
Isx 


0 5 9 |] 


Si los límites son los del cuadrado es decir: lix =100; lsx =120; liy =100; Isy =120; no lo rellena porque este 
programa rellena dentro de los límites de la figura definida por las líneas que están más cerca de los límites siempre 
que no estén en los propios límites. 


Por último, si dibujas dos cuadrados definidos por las coordenadas 1) (102,110); (102,116); (108,116); (108,110) 
y 2) (110,102); (116,102); (116,108); (110,108) y utilizamos la opción p se rellenan únicamente, estos cuadrados dentro 
de esos límites. 
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SUBRUTINAS 


1) INICIA VARIABLES. 


Esta subrutina contiene tres clases de variables. 


APLICACIONES SENCILLAS 


a) Serie escoge: hay 8 variables es0 a es7 no se utilizan todas pero se han puesto para las ampliaciones que se 
quieran hacer al programa. Sirven para encender o apagar las subrutinas que pueden funcionar simultá- 
neamente. 


b) Serie coordenadas: fija los valores iniciales de x e y en 127,82 respectivamente. Estos valores son el centro de 
la pantalla x = INT (252/2); y = INT (165/2). Que y sea 165 se debe a que se han suprimido las 10 primeras 
líneas de “pixels” para escribir en ella las coordenadas. 


c) Serie límites: fija los límites superior e inferior de x e y: 


Isx = 254 lix = 0 
Isy = 165 liy = 0 


Estos límites serán tenidos en cuenta por las opciones | y p, y pueden ser variados con la «opción 3. 
PONE COLORES INICIALES. 
Pregunta, líneas 1110 y 1120, colores iniciales del lápiz y el papel y los pone, línea 1130. 
ESCOGE 1. 
Es el programa principal. 


La línea 2110 permite utilizar las opciones revisando el teclado para saber si se aprieta la tecla BREAK SPACE. 
Si se aprieta es0 vale 1. 


La línea 2120 a 2150 es una equivalente a IF THEN ELSE que utiliza operadores lógicos. Vigila si tiene que 
dibujar rectas, es1 = 0, u oblicuas esl = 1. 


Las líneas 2160 a 2190 es igual que el grupo anterior un equivalente a IF THEN ELSE y permite: dibujar, 
es2 = 0, ó borrar, es2 = 1. 


Las líneas 2200 y 2210 es un equivalente a IF THEN y en caso de que es3 sea 1 escribe coordenadas hasta que 
es3 sea 0. 


Las líneas 2220 y 2230 permiten limitar la pantalla, y si es4 vale 1 se vigila que el punto no se salga de los límites 
lix, lsx, liy y lsy. 


Las líneas 2240 y 2250 mandan la ejecución a escoge 2 esperando una variación de las opciones, si es( = 1, es 
decir, si se ha apretado la tecla BREAK SPACE. 


RECTA. 


La subrutina dibuja una línea horizontal o vertical según el cursor utilizado, teclas 5 y 8 horizontal y teclas 6 y 7 
vertical. Lo que hace es sumar o restar uno a x ó y según la tecla utilizada. 


DIBUJA. 
Pinta un punto, con el color del lápiz y papel deseado, en las coordenadas x,y y emite un sonido, línea 3020. 
BORRA. 


La subrutina pinta un punto en x, y espera 20 unidades, (20/50 de segundo), y lo borra pintando el inverso, es 
decir, con el color del papel. Cuando se aprieta una tecla la pausa se acorta y si hay autorrepetición la pausa se 
hace cero. Por ello, al borrar, el punto desaparece. 


DIAGONAL. 
La subrutina dibuja una línea inclinada en 452 con respecto a la horizontal. Para ello suma uno o resta uno tanto 
a x como a y. 


ESCOGE 2. 


Las líneas 4010 a 4040 esperan a que se apriete una tecla emitiendo un sonido para que el usuario sepa que ha 
apretado BREAK SPACE. 


APLICACIONES SENCILLAS 


La línea 4050 te envía a la línea 4060, si se aprieta la tecla 1. La línea 4060 pone a la variable es1 el valor 1 
con lo que la subrutina escoge 1 irá a la subrutina diagonal ya que la línea 2120 nos salta a la 2150 que nos lleva a 
la subrutina diagonal. 


La línea 4070 te envía a la 4080 si se aprieta la tecla 2. La línea 4080 pone el valor de la variable esl a cero con lo 
que la línea 2120 de la subrutina escoge 1 irá a la 2130 que nos envía a la subrutina recta. 


La línea 4090 te envía a la 4100 si se aprieta la tecla 9. La línea 4100 pone es2 en cero con lo que la subrutina 
escoge 1 en su línea 2160 nos enviará a la 2170 que a su vez nos envía a la subrutina dibuje que pinta un punto. 


Las líneas 4110 a 4160 son el resto de las opciones que pueden ser encendidas o apagadas independientemente 
una de otra, es decir, pueden funcionar todas al mismo tiempo, con lo que el programa obviamente pinta los 
puntos más despacio, porque tiene que ejecutar unas instrucciones. 


De la línea 4170 a la 4240 cada dos líneas, y utilizando el mismo sistema anterior, nos manda directamente a una 
subrutina, si se ha apretado la tecla correspondiente. 


Las líneas 4250 a 4280 encienden y apagan la opción esá4 que son los límites de la pantalla, que también puede 
funcionar simultáneamente con las opciones que manejan las variable es3, es2, esl1 y es0. En fin, la línea 4370 
utiliza la opción LOAD si se ha apretado la tecla J. 


ESCRIBE COORDENADAS. 


Esta subrutina transforma las coordenadas x e y en x$e y$ que son dos “STRINGS”. A estos “STRINGS” les 
pone dos caracteres blancos delante, si la longitud del número definido por x y transformado en el “STRING” 
x$ es igual a 1, un solo carácter blanco si es igual a 2 y ninguno si es igual a 3. De esta manera se escribe x$ e y$ 
que son “STRINGS” de tres caracteres encolumnados a partir del último. 


CAMBIA x, y 


Esta subrutina nos pide un valor para x (línea 5010), coordenada horizontal, y otro valor para y (línea 5020), 
coordenada vertical. De esta manera la punta del lápiz pasa a estar en la posición de la pantalla indicada por 
estos nuevos valores. 


DELIMITA LIMITES. 


Esta subrutina nos pide cuatro valores, que son los límites superior e inferior de x y los límites superior e inferior 
de y; impidiendo que demos límites no válidos (líneas 5110 a 5140). 


GUARDA DIBUJO. 


Esta subrutina permite guardar la pantalla utilizando la opción SCREEN del ZX SPECTRUM, evita que los 
nombes tengan más de diez letras. 


CAMBIA COLOR. 

Cambia los colores del lápiz y del papel evitando que se den colores superiores a 7. 
LIMITA PANTALLA. 

Esta opción limita el dibujo a los límites que hemos dado con la opción 3. 
RELLENA DIBUJO. 


Esta subrutina rellena el dibujo que esté entre los límites de la opción 3 y lo que hace es buscar con la opción 
POINT si un “pixel” de la pantalla es del color del papel o del lápiz, cuando encuentra uno del color del lápiz 
busca dentro de los límites si hay otro del color del lápiz, y dibuja una recta entre los dos puntos. 


CARGA PANTALLA. 


Esta subrutina carga una pantalla de la cassette evitando que el nombre que se le de a buscar de la cassette 
tenga más de diez letras, utiliza la función LOAD del BASIC de Sincler. 


INICIACIÓN AL BASIC 


IB 1 a IB 10 


INTRODUCCION 


Los programas de la serie IB (Iniciación al BASIC) tienen como objetivo enseñar a programar por medio de 
programas sencillos. Estos programas serán, a veces, muy similares con el fin de poder apreciar pequeñas diferencias 
de programación que tienen interés. 


La idea de que programando se aprende a programar no es, obviamente, nuestra, pero esta serie tiene la 
intención de, utilizando problemas simples, interesar al lector en otros problemas similares que pueda programar él 
desde el principio. 


Como premisa a la utilización de estos programas sólo creemos necesario que el lector haya practicado algunas 
veces con los programas de la cara A de la cassette HORIZONS DE PSION que suministra Sincler con su aparato. 
Estos programas incluido “Hardware” están muy bien ideados y permiten al lector tener unos conocimientos básicos 
de computadores, así como del teclado del ZX SPECTRUM. 


IB 1 A IB 5 


Este es el esqueleto de un programa BASIC que hace algo. Este programa transforma pulgadas en centímetros y 
utiliza sólo dos líneas con una instrucción cada una. 


La línea 10 contiene una instrucción INPUT. La instrucción INPUT (que puede ser traducida por entre un dato 
o meta un dato) obliga al computador a detener, en ese punto, la ejecución del programa y espera a que el usuario 
escriba en el teclado el valor de la variable que está escrita detrás del INPUT, en este caso “pul”, y apriete ENTER 
para dar a conocer a la máquina que ha terminado de escribir el valor de la variable. 


En esta línea entre la variable “pul” y el INPUT hay dos cosas significativas desde el punto de vista de la 
programación: una, la palabra pulgadas y el signo =, entre comillas y otra, un punto y coma. Después de un INPUT y 
entre comillas podemos escribir la pregunta que el computador va ha hacer antes de detenerse esperando la 
respuesta. Como el aparato sólo hace lo que previamente le hemos ordenado, si entre comillas, en vez de pulgadas, 
escribimos metros el aparato escribirá metros, aunque calcule pulgadas (ver 1B2). 


La línea 20 contiene la instrucción PRINT (que se puede traducir por imprime o escribe). Esta instrucción hace 
que sea escrito lo que está detrás de ella. Si lo que está escrito detrás de la instrucción PRINT se pone entre comillas 
el computador lo escribe tal cual, (ver 1B3) pero si no lleva comillas busca el valor de las variables y realizando la 
operación que indica x, que es el signo de multiplicar, escribe el resultado. En este caso “pul” es una variable 
numérica que tomará el valor que nosotros escribamos cuando el computador se pare en el INPUT, dando como 
resultado el producto de 2,54 por el valor que le hemos dado a la variable “pul”. El punto de 2,54 es el equivalente 
inglés de la coma española para separar el entero de la fracción. 


INICIACIÓN AL BASIC 


El punto y coma que la línea 10 del programa IB1 lleva detrás de las comillas y antes de la variable “pul” le sirve 
al computador para esperar la contestación justo detrás del signo = de pulgadas. 


Este punto y coma puede ser sustituido por una coma (tecla N), o una sola comilla, el acento (tecla 7). En caso de 
sustituirlo por coma el computador espera la respuesta a mitad de la línea donde escribe pulgadas =, y si es una 
comilla al principio de la línea siguiente (ver 1B4 y IB5). 


IB 1 


IB 2 


IB 3 


IB 4 


IB 5 


IB 6 


En este programa hemos incluido tres líneas que contienen cada una un PRINT, y la palabra centímetros entre 
comillas en la línea 20. La línea 4 sirve para que al ejecutar el programa, el computador nos diga qué va a hacer. Es 
importante destacar que después del PRINT, y de abrir comillas, hay varios espacios para que al escribir TRANS- 
FORMO PULGADAS lo haga centrado en la pantalla. Después de transformo pulgadas se cierran las comillas y se 
pone un acento a continuación (tecla 7), que obligará al computador a saltar de línea. Se abren nuevamente comillas 
y se dejan los espacios pertinentes para que EN CENTIMETROS se centre en la pantalla y se cierran comillas. La 
línea 6 sólo contiene un PRINT que obliga al SPECTRUM a saltar a la línea siguiente, es decir, a dejar una línea en 
blanco, y podría ser sustuído por otro acento después de cerrar las comillas de EN CENTIMETROS. La línea 15 
escribe el valor que le damos a “pul” durante el INPUT y a continuación la palabra “pulgadas =” que lleva un espacio 
entre ella y las comillas delante y otro espacio detrás del signo igual, y antes de cerrar las comillas. La palabra 
centímetros de la línea 20 será escrita inmediatamente después del resultado de multiplicar 2.54 por la variable PUL 
ya que está separada por un punto y coma. 


INICIACION AL BASIC 


Cuando se escribe RUN y ENTER se pone en marcha el programa, y se borra la pantalla, pero hay otra manera 
de hacer lo mismo sin borrar la pantalla: consiste en apretar GO TO un número de línea y ENTER. Si apretamos GO 
TO y ENTER el programa se pone en marcha en la línea 10 y no borra la pantalla. Si apretamos GO TO 15 y 
ENTER el computador vuelve a escribir lo anterior y si apretamos GO TO 20 escribe sólo los centímetros. La 
instrucción GO TO (se puede traducir por VE A) obliga al computador a ir al número de línea marcado y seguir allí 
la ejecución del programa. 


IB 7 


El programa IB7 es idéntico al IB6 con la inclusión de dos nuevas líneas que transforma Pulgadas en un 
programa BASIC completo. La línea 10 es una instrucción REM (abreviatura de REMARK, comentario) sirve para 
poner líneas que no se ejecuten y pueda el programador poner comentarios al programa. Todo lo que hay en una 
línea escrito detrás de un REM es ignorado por el computador, aunque sean instrucciones válidas. 


La línea 70 obliga al computador a ir a la línea 40. De esta manera este programa entra en un lazo sin salida al 
ejecutarse y siempre preguntará más datos de pulgadas. Para salir de este lazo solamente hay que contestar algo que 
no sea un número y se provocará un error que obliga a la máquina a salir del lazo y decirnos el error cometido. Por 
ejemplo: si a la pregunta pulgadas se escribe una a y se aprieta ENTER nos dice “2 variable nor found, 40:1” que 
quiere decir que no encuentra una variable a la que asignar el valor a, ya que la variable “pul” es una variable 
numérica. 


Es un ejercicio interesante variar la línea 70 por GO TO 10, después por GO TO 20 y así hasta GO TO 70. Si la 
línea 70 es GO TO 70 el computador se mete en un lazo, pero esta vez sin salida a través del error en el INPUT: para 
salir hay que apretar primero CAPS SHIFT y después BREAK SPACE. Si la línea 70 es GO TO 60 parece que se ha 
vuelto loco porque escribe los centímetros sin parar hasta que llena la pantalla y pregunta SCROLL ?, si se aprieta N 
(en ese caso abreviatura de NO) o BREAK SPACE se para. 


INICIACIÓN AL BASIC 


IB $ - IB 9 - IB 10 


Estos tres programas son tres ejemplos prácticamente idénticos, como programas, de aplicaciones del programa 
1B7: en el caso de IB8 se realiza la transformación inversa a IB7 que es centímetros en pulgadas, en el caso de IB9 
transforma dólares en pesetas, y en este programa se ha incluido un INPUT que introduce un valor a una variable 
llamada cambio, que es el cambio del dólar. Programa IB10 calcula la longitud de una circunferencia dando el radio 
y lleva un PRINT en la línea 70 que no está en los otros programas, pero es necesario en éste. 


“CZX O” 


- SUBRUTINAS 


Este programa es el primero de una serie que pretende dar a conocer el aparato que se utiliza “El ZX SPEC- 


TRUM”. 


En el libro que se suministra con el SPECTRUM viene un apartado que se llama: “variables del sistema” 
Capítulo 25; en el que se describen una serie de direcciones que utiliza el microcomputador para guardar datos, estas 
direcciones para cualquiera que pretenda programar seriamente este microcomputador son del máximo interés. 


El programa CZX 0 utiliza una función definida por el usuario para calcular la dirección que se encuentra 
guardada en código binario en algunos de estos bytes. Esta función lo que hace es hacer un PEEK de la primera 
dirección de las variables del sistema obteniendo así “Isb” (less significant byte = byte menos significativo) para 
después hacer un PEEK de la primera dirección más uno, de la variable del sistema que es el “msb” (more significant 
byte = byte más significativo) y después de multiplicarlo por 256 sumarle el byte menos significativo. 


Dir. = Isb + 256 x msb 
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SUBRUTINAS 


PROGRAMA 


El programa se carga con MERGE detrás de cualquier programa BASIC, y cuando queremos que nos dé los 
datos, se limpia la pantalla con CLS y se escribe GO TO 8000. 


El programa escribirá los datos y nos permite conocer la situación del STACK, RAMTOP, bytes accesibles al 
BASIC, bytes protegidos desde la RAMTOP al final de la RAM que no son accesibles al BASIC y por tanto se 
pueden utilizar para colocar subrutinas. También nos da la dirección del carácter gráfico “a”definible por el usuario, 
aunque este dato es muy fácil de obtener escribiendo PRINT USR “a” o para cualquier otro carácter gráfico PRINT 
USR “carácter gráfico”. 


Por último, nos da la longitud del programa después de haberle descontado la longitud de la subrutina, siendo, 
por tanto, la longitud real del programa que tenemos menos la longitud de la subrutina. 


DELIRIOS DE 
MISTER ORWELL 


“Todo ocurre inicialmente en 
otros países y a la larga en el 
nuestro , escribió Borges el sen- 
tencioso como pensando en no- 
sotros. llustrísimos ensayistas se 
han quemado las cejas, decan- 
tando las causas de que eso sea 
así, a lo largo y ancho de volu- 
minosos tratados que, por lo 
mismo, se resisten a la banali- 
zación de un artículo. Habrá que 
constatar, en todo caso, que en 
nuestra cultura mediterránea y 
en nuestra Facultades aliñadas 
de gracejo y escolástica, la ver- 
dad ha venido rimando en con- 
sonante durante siglos con cate- 
gorías tan sustuarias como la 
Belleza y la Bondad. Por contra, 
en la mentalidad tecnológica 
anglosajona un concepto o un 
método se ha considerado bueno 
si era eficaz. Por eso ellos han 
facturado técnicos y especialistas 
y nosotros sofistas y parados de 
alta cualificación. A estas alturas 


de la película ha quedado bas- 
tante claro que el tinglado in- 
dustrial y tecnológico de un país 
no se monta con ingeniosos ter- 
tuliantes. 

Hasta ayer mismo lo más gra- 
nado y talludito de nuestra inte- 
lligentsia aborigen daba por 
sentado el carácter profético de 
Orwell y tomaba por verdad re- 
velada sus mitologías sociales 
apocalípticas. Los herederos 
mentales de quienes saludaron 
a las máquinas de la primera 
revolución industrial como avan- 
zadilla de la barbarie, sacaban a 
colación a HAL 9000, la temible 
computadora parlante introducida 
por Stanley Kubrick en “2001: 
Una odisea en el espacio”, para 
convertir su miopía en argumento 
ante la inminente invasión de 
unos aparatos de cuyo funciona- 
miento, por ser oscuramente 
comprendido, se esperaban los 
más fantásticos prodigios, inclui- 


do el de la eliminación pura y 
simple del hombre de la activi- 
dad laboral y, también, la excla- 
vización del homo faber, autor y 
responsable de una endiablada 
tecnología inteligente. El apoca: 
lipsis se anunciaba como una 
nueva edición corregida y aumen- 
tada del episodio decimonónico 
de los doctores malditos empe- 
ñados en la estupidez prometeica 
y temeraria de arrebatar a los 
dioses el secreto de la inteli- 
gencia. 

El monstruo de Frankestein 
se convertía, en tanto que pre- 
cedente, en alegato de los ago- 
reros. La ingnorancia, a veces, 
no sólo no es atrevida, sino que 
se vuelve pacata y austadiza 
como las viejas. Lo que anuncia- 
ban los apocalípticos es una rea- 
lidad y aquí no. ha pasado nada 
que tenga que ver con cataclis- 
mos. En sólo tres años se han 
colado en nuestros hogares más 
de 100.000 microordenadores 
de gama baja y el fenómeno 
avanza y arrecia. El futuro es un 
niño sonriente y feliz aprendiendo 
2 aprender con su teclado y su 
pantalla ¿O eso es ya el presente? 


MANUEL MONTERO 


OTRA COSA 


Aldea global, planeta 
cableado, tercera ola, era 
del conocimiento: nombres 


diversos de la misma co- . 


sa. En apenas un parpa- 
deo histórico las tecnolo- 
gías de la información han 
arrumbado a los desvanes 
de la Historia a la era in- 
dustrial. Los modos y las 
técnicas de producción se 
renuevan con una acele- 
ración de vértigo. Quienes 
fuímos educados en la aus- 
teridad del encerado y can- 
tadno a coro la tabla de 
multiplicar hemos queda- 
do reducidos a meros ju- 
guetes de la fatalidad tec- 
nológica. Cierto es que 
siempre estamos a tiem- 
po de aprender Basic y 
de destruir marcianitos con 
maña y con solvencia, pero 
se nos escapa la cultura 
que subyacen a los transis- 
tores y a los micros. No he- 
mos tenido tiempo de asi- 
milar el empacho de nove- 
dades. Nuestros reflejos 
son más lentos que el rit- 
mo de la Historia. Entre 
1960 y 1985, es decir, en 
sólo 25 años, las dimen- 
siones de los aparatos 
electrónicos, el precio y 
su consumo de energía se 
han dividido por 10.000 y 
la seguridad de funciona- 
miento se ha perfecciona- 
do en una proporción del 
orden de 10 millones a mil 
millones de veces. En sf- 
mil bien gráfico del cientí- 


fico francés André Danzin, 
todo se ha desarrollado 
como si un Rolls Royce se 
hubiera convertido en un 
paquete de cigarrillos rin- 
diendo los mismos servi- 
cio. Es la misma diferen- 
cia de precio y de volu- 
men, es la misma diferen- 
cia de consumo de ener- 
gía y, sin embargo, lo se- 
gundo marcha diez mil ve- 
ces más rápido y en lugar 
de estropearse una vez al 
año, lo hace una vez por 
milenio. Se ha transforma- 
do nuestra vida. Es todo 
lo que sabemos. 

La era industrial vació 
el campo para llenar las 
fábricas, la era de la infor- 
mación vacía las fábricas 
para llenar las oficinas. El 
músculo deja paso a los 
símbolos y la mujer apro- 
vecha la coyuntura para 
reivindicar sus derechos 
de igualdad. Se modifica 
su rol social. El formidable 
desarrollo de la investiga- 
ción hace que hoy vivan 
entre nosotros el 90 por 
cien de los científicos que 
han existido sobre el pla- 
neta en toda su Historia. 

Estamos ante una nue- 
va cultura, pero en Europa 
apenas sí nos hemos da- 
do cuenta de que lo im- 
portante no es el progre- 
so técnico, sino la reac- 
ción cultural. China inven- 
tó antes que Europa la 
brújula, la pólvora o la im- 


prenta, pero sus condicio- 
nes de organización eran 
tales que no sacó ningún 
partido de tales inventos 
que, transportados a Euro- 
pa, cambiaron el mundo. 
La receptividad del medio 
humano a las nuevas tec- 
nologías es lo que crea la 
cultura. El Renacimiento 
lanzó a Europa para cinco 
siglos a la hegemonía del 
resto del mundo. No dura- 
rá mucho más. Hoy lo que 
pasa y lo que se dice nace 
en los USA, en Japón, en 
Taiwan, en Corea del Sur, 
en Singapur o en Hong 
Kong. El premio Nobel Ilya 
Prigogine sugiere que es- 
to se explica porque en el 
fondo de la cultura asiáti- 
ca hay una visión de glo- 
balidad, una visión siste- 
mática que corresponde al 
estado actual de la com- 
plejidad del mundo. El ho- 
gar del conocimiento fue 
en toros tiempos el Orien- 
te Medio, basculó hacia 


la Europa latina y luego a 
la Europa del Noroeste, 


después hacia los Estados 
Unidos y ahora hacia el 
Pacífico. La tarea de cons- 
truir un hombre nuevo, más 
«de pie», más humaniza- 
do va a ser cosa de los 
orientales. Europa ha per- 
dido su visión de pionero. 
Aquí el nuevo curso de la 
Historia nos ha pillado dis- 
cutiendo aún sobre el se- 
xo de ángeles. La cultura 
hoy tiene que ser otra co- 
sa porque el mundo, ape- 
nas sin darnos cuenta, se 
ha convertido en otra co-- 
sa. 


Victoria HERNANDO 
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DESINFORNACION — 


APLICACIONES SENCILLAS 


HORMIGA 


La hormiga CONCON, que utilizamos como distintivo de SIFT, S.A., surgió, cuando pensábamos en cómo 
expresar la idea de trabajo constante, aparentemente sin mucho esfuerzo. Se nos ocurrió que un representante de esta 
especie era la figura ideal para sugerir nuestra idea al comenzar con esta serie. 


Los computadores, especialmente trabajando en BASIC, se pueden programar con pocos conocimientos, pero, 
sin embargo, para programar bien es necesario un esfuerzo continuado. Nuestra intención es tratar de ayudaros lo 
más posible en esta labor procurando que nuestros programas os sirvan para elaborar los vuestros. 


El motivo de este programa es el de ilustrar, de una manera sencilla, cómo se puede dar movimiento a figuras, y 
hemos escogido a CONCON para ello. 


Este programa es muy imperfecto en cuanto a movimiento, fundamentalmente, porqué la hormiga está dibujada 
en una sola posición. Más adelante lo haremos de manera más realista, aunque la hormiga ocupa 18 caracteres 
gráficos de los 21 del ZX SPECTRUM. 


Esperamos de todas maneras que os guste, y que podáis disfrutar viendo los saltos y las patadas que CONCON 
da a su nombre. 
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APLICACIONES SENCILLAS 


PROGRAMA 


En primer lugar hay que comentar que este programa empieza en la línea 8000, como las subrutinas que iremos 
poniendo, para poder ser convertido en una subrutina, si hay algún lector interesado en hacerlo, obviamente, no con 
fines comerciales. 


El programa utiliza los caracteres gráficos definidos por el usuario, que tiene el ZX SPECTRUM, para dibujar 
la hormiga CONCON. Empieza por colocar, en el lugar oportuno de la memoria RAM, los bytes correspondientes al 
dibujo. 


El programa consta de tres subrutinas, actuando una de ellas: movimiento, como programa principal. 


SUBRUTINAS 


1) HORMIGA DE SIFT, S.A. 


Las líneas 8070 a 8120 contiene los bytes que van a formar la hormiga. Estos bytes están contenidos en 18 
caracteres gráficos definibles por el usuario, y van a ser cargados en RAM por el lazo constituido por las líneas 
8040 a 8060. La dirección de comienzo la toma el computador de la variable ini que, aparentemente, no es un 
número; pero si escribimos PRINT USR “a” y pulsamos ENTER el ZX SPECTRUM escribirá en la pantalla un 
número. El número que escribe el computador es la dirección del primer byte que constituye la línea superior del 
carácter gráfico a. El resto de los bytes de los caracteres gráficos, incluyendo los otros siete de a son consecu- 
tivos. Por tanto, el último carácter de CONCOMN, el carácter r tendrá como byte inicial USR “r” y como byte final 
USR “r” + 7. 


De esta manera las líneas 8010 y 8020 asignan a las variables ini y fin sus “valores. 


El utilizar este sistema no es caprichoso, debido a que la posición en la memoria RAM de los caracteres gráficos 
no es fija, ya que depende de la situación del límite artificial de la memoria RAM o “RAMTOP”. 


La instrucción RESTORE de la línea 8030 no es estrictamente necesaria, pero es conveniente para evitar el que el 
ZX SPECTRUM nos conteste “OUT OF DATA” si intentamos escribir GO TQ 8000 después de haber ejecutado 
una vez el programa. 


Las líneas 8040 a 8060, como comentábamos, constituyen un lazo “FOR... NEXT” que carga los datos leídos con 
el READ (línea 8050) de las líneas 8070 a 8120). 


Uno a uno, la instrucción READ de la línea 8050: asigna a la variable a el valor contenido, entre comas, en el 
DATA. A continuación, la instrucción POKE, escribe en la dirección de la memoria RAM indicada por sel byte 
contenido en a, de esta manera carga los 144 bytes correspondientes a los 18 caracteres que forman la hormiga. 


MOVIMIENTO. 


En realidad esta subrutina constituye lo que en otros lenguajes de alto nivel, por ejemplo PASCAL, se conoce con 
el nombre de Programa Principal. 


Esta subrutina hace todo, una vez que se han cargado los bytes correspondientes al dibujo, por lo que para 
ejecutar por segunda vez el programa, llega con escribir GO TO 8200. 


Las línea 8210, borra la pantalla y crea dos variables ti y pa, abreviaturas de tinta y papel, que contienen los 
números correspondientes a los dos colores. 


Las líneas 8220 a 8280 son un lazo “FOR... NEXT” doble, que permite variar la posición en la que la subrutina 
EJECUTA MOVIMIENTO pinta a CONCON. 


En este lazo la línea 8240 asigna a las variables x e y, que va a utilizar EJECUTA MOVIMIENTO, los valores 
t y s respectivamente. La línea 8250 envía a la subrutina EJECUTA MOVIMIENTO y a la 8260, utiliza la función 
INT para cambiar la varible ti (color de la tinta) y a la instrucción BEEP, para emitir un sonido que varía entre 
22 y 22.+.31. 


APLICACIONES SENCILLAS 


Es interesante hacer notar que ti valdrá cero, mientras t sea menor que cinco, uno, en tanto sea menor que 10, dos, 
cuando sea menor que quince... etc... 


La línea 8290 borra la pantalla y utiliza un lazo “FOR... NEXT”, para poner en movimiento la hormiga, con otro 
movimiento distinto del anterior. En primer lugar, el lazo utiliza la instrucción TAB para mover la hormiga. 
Debido a que TAB salta una línea, cuando tiene que escribir en una posición detrás del último TAB de esta línea, 
y a que TAB, si se ha vuelto a una línea ya escrita utilizando AT, borra todo lo que hay escrito en la línea antes de 
su posición de escritura, este lazo funciona. Por otra parte, la instrucción INK permite pintar la hormiga con el 
colot 6, a partir de la posición 21, y volver a pintarla con el color 0 a partir de la 29, que es la última. 


Por último, esta línea envía la ejecución del programa a la 9999 que es el último número de la línea en el BASIC de 
Sincler. 


EJECUTA MOVIMIENTO 


Esta subrutina utiliza la opción AT de la instrucción PRINT, para escribir los caracteres gráficos de tres en tres 
a partir de x y de y. 


Las líneas 8310 a 8360 escriben los caracteres gráficos correspondientes: 
FLR 
EKQ 
DJP 
CIO 
BHN 
AGM 


Se puede apreciar que no hemos cambiado la variable pa a lo largo del programa, y por tanto, no sería necesario 
ponerla en estas líneas, pero la hemos puesto por si se quiere utilizar. Por ejemplo, si escribe una línea 8262 let 
pa = pa + 1 — pa * (pa >7), el efecto es curioso. A 


La línea 8370 hace una pausa de 5/50 de segundo, y para explicar su utilidad, lo adecuado es borrarla. y ejecutar 
el programa. 


Las líneas 8410 a 8430 que borran parte de la hormiga, y escriben el punto y CONCON, son las que crean la 
sensación de salto en la hormiga. Se han puesto como una posibilidad entre muchas, y aconsejamos al usuario 
modificarlas a su gusto con el noble fin informático de “ver qué pasa”. 


APLICACIONES SENCILLAS 


Coordenadas: MG 1 


MG 1 es una abreviatura de Matemáticas- Geometría programa primero y es, como su nombre indica, el primer 
programa de una serie, que pretende acercarse a la utilización de los microcomputadores en la enseñanza. 


Antes de comenzar la elaboración de este programa, hemos meditado acerca de cuál debería ser el primer 
programa de esta serie, y hemos escogido este por varias razones. 


En primer lugar, para dibujar con un computador, es muy útil conocer el sistema de coordenadas cartesianas, y 
aunque este sistema es conocido por los mayores, ya que, hoy en día, se representan en este sistema desde fenómenos 
sociales hasta fenómenos biológicos, los pequeños no lo conocen. Por otra parte en nuestro número uno el programa 
Tiralíneas utiliza la pantalla como primer cuadrante de un sistema de este tipo, ya que el ZX SPECTRUM dibuja 
“pixel”, como si estuviese dibujando en el primer cuadrante. 


Por último, en sucesivas cassettes, utilizaremos este sistema varias veces y nos parecía oportuno refrescar la 
memoria de aquellos que no han vuelto a utilizar las coordenadas desde el bachillerato. 


En general, cuando incluyamos programas de este tipo, y siempre que sea posible para el ZX SPECTRUM, 
haremos un primer programa, cuyo fin sea recordar los conceptos, para posteriormente hacer otro, que basado en la 
idea de “jugando se aprende”, sirva para comprobar si se han aprendido. 


Este programa es bastante complejo, pero presenta enormes posibilidades de variación, al utilizar muchas 
subrutinas fácilmente modificables, que van dibujando en la pantalla. 
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APLICACIONES SENCILLAS. 
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APLICACIONES SENCILLAS 


PROGRAMA 


Las dimensiones de este programa se acercan mucho a las máximas aceptables para poder ser ejecutado en el ZX 
SPECTRUM de 16K. De hecho, hemos tenido que utilizar las técnicas normales para acortarlo, como son: múltiples 
instrucciones en una línea, supresión de espacios no significativos, nombres de variables cortas,... etc... 


El programa consta de 28 subrutinas que hemos dividido en tres tipos: 12) subrutinas d y 292) subrutinas a y 39) 
subrutinas sin dirección. En general las subrutinas sin dirección sólo son llamadas una vez, es decir, el programa las 
va ejecutando por orden. 


Las subrutinas de la serie d (subrutinas que dirigen otras subrutinas), se caracterizan, también en general, por 
utilizar subrutinas que actúan para ejecutar su cometido, las subrutinas a. Las subrutinas a son bastante generales, y 
algunas de ellas las incluiremos en la biblioteca de subrutinas de BASIC, que iniciaremos en la cassette próxima. 


SIN DIRECCION 
INICIA: inicia la ejecución del programa. 
EJES: dirige el dibujo de los ejes, el ángulo de 90 grados, y pone los nombres a los ejes. 


CUADRANTES: dirige el dibujo de los cuadrantes, y su posterior borrado. Posteriormente dirige la división de los 
ejes. 


PUNTOS: dirige las subrutinas que pintan un punto en cada cuadrante, y lo borran. 


REPITE PROGRAMA: permite repetir el programa más deprisa. 


SERIE d 


d0 SUBRUTINAS: asigna a las variables e y d el número de línea correspondiente. 

dl CABECERA: escribe la primera página del programa. 

d2 DIB. CUADRANTES: dirige el rellenado de los cuatro cuadrantes y les pone número. 

d3 BORRA CUAD: dirige el borrado de los cuadrantes. 

d4 NOMBRA EJES: dirige la identificación de cada eje con su nombre: abcisas y ordenadas. 
d5 DIVIDE EJES: dirige la escritura de los carteles y la división de los ejes. 

d6 PUNTOS: dirige la escritura de los carteles y el dibujo de los puntos. 


SERIE a 


ESCRIBE l: escribe carteles con letras que parecen originarse en el vértice inferior izquierdo. 
ESCRIBE 2: escribe carteles con letras deslizantes a partir del marquen izquierdo. 
DIBUJA EJES: hace el dibujo de los ejes. 

90 GRADOS: hace el dibujo del ángulo y escribe el cartel. 

BORRA CARTELES: borra los carteles. 

NOMBRA EJES: identifica cada eje con su letra x, y. 

EJE X: pinta trazo grueso encima del eje de abcisa. 

EJE Y: pinta trazo grueso encima del eje de ordenadas. 

CUADRANTES: pinta y borra cuadrantes. 

ESCRIBE P: escribe una P con parpadeo en una posición dada. 

DIBUJA P: pinta un punto parpadeante, el punto P. 

D. ABCISA DE P: dibuja puntos alternos de abcisa de P. 

D. ORDENADA DE P: dibuja puntos alternos de ordenada de P. 

BORRA TODO P: borra las líneas de puntos y la letra P. 

DIVIDE EJES: dibuja divisiones en los ejes. 

MARCA NUMERO: marca con FLASH el valor de la ordenada o de la abcisa de P. 


_ APLICACIONES SENCILLAS 


INICIA: 


Antes de describir “inicia” diremos que, como siempre, las líneas 1, 2 y 3 tienen un REM con el nombre del 
programa. 


La línea 20 comprueba qué memoria tiene el ZX SPECTRUM que ha cargado el programa y coloca el final 
artificial de la memoria RAM de acuerdo con la memoria total. Para el 16K, 32767 y para el 48K, 65535. 


La línea 30 asigna a las variables “string” b$, c$, 0$ d$ y e$ sus valores alfanuméricos. La línea 40 empieza 
asignando los valores iniciales a las variables: pai color inicial del papel; ti: color del lápiz; pa: color del papel; 
pas: valor de la pausa. A continuación pone la pantalla del color elegido, utilizando las instrucciones INK, PAPER y 
BORDER para que después la instrucción CLS los modifique. A continuación va a la subrutina d0, que asigna a las 
variables nombres de subrutina d y alos valores numéricos correspondientes a los números de la línea donde empieza 
cada subrutina. Posteriormente utiliza d1 para escribir la primera página que anuncia el programa; hace una pausa, y 
borra la pantalla con CLS. 


La línea 50 permite cambiar los colores si se repite el programa. Si se utiliza la opción s (si) el programa 
comienza, por segunda vez, en esta línea (ver repite programa). 


EJES: 


La línea 120 empieza por asignar una nueva variable ps al valor de pas (pausa). A continuación va a utilizar la 
subrutina, escribe 2, a2, y por ello define una serie de variables que necesita a2 (ver a2), que escribe EJES DE 
COORDENADAS en la pantalla. Posteriormente ejecuta la subrutina a3, que dibuja los ejes y después ad, que 
dibuja el ángulo y escribe 90 grados, para a continuación, ejecutar a6, que pone xe y a su correspondiente eje. Vuelve 
a ejecutar a3 para asegurarse que el dibujo queda bien, y pasa a identificar cada eje con su nombre, utilizando d4. 


EJES DE COORDENADAS EJES DE COORDENADAS 
eje de abcisas 


X 
20 grados 


CUADRANTES: 


La línea 160 ejecuta d2, que rellena consecutivamente los cuatro cuadrantes y les pone número. A continuación 
la línea 170 borra el cartel utilizando a5, borra los cuadrantes utilizando d3 y divide los ejes por medio de dS5. 


APLICACIONES SENCILLAS 


ditirei,  PULA dilo EJES PE GRQRRENgOnS 
Largasulo, Cortas =5 


PUNTOS: 


Las línea 310 a 330 utilizan diversas subrutinas para dibujar todo lo que corresponde al punto P en el primer 
cuadrante. Las líneas 340 a 400 hacen lo mismo para el punto P en el segundo cuadrante, las líneas 410 a 470 para el 
tercero y las líneas 480 a 540 para el cuarto. 


Esquemáticamente el proceso se puede describir así para el primer cuadrante, ya que los otros tres utilizan el 
mismo sistema: 
19) Se escriben los carteles,P se dibuja su abcisa y ordenada y a continuación se borra P abcisa y ordenada. Todo 
ello lo dirige d6. 


29) Se 
39) Se 
49) Se 
32) Se 
62) Se 
72) Se 
89) Se 


vuelve a escribir P y después (12, 16). 

escribe xp = abcisa de P y se dibujan los puntos correspondientes. 

enciende el parpadeo del número 12 del paréntesis (12, 16) y se hace una pausa. 
escribe yp = ordenada de P y se dibujan los puntos correspondientes. 

enciende el parpadeo del número 16 y se hace una pausa. 

borra P, abcisa y ordenada. 

borra el paréntesis (12, 16). 


AS FGenaga dep 
veran, 


APLICACIONES SENCILLAS 


REPITE: 


La línea 610 borra la pantalla y escribe: sí quiere repetir, utilizando la subrutina ESCRIBE 2 (a2). A continua- 
ción la línea 620 escribe, de la misma forma, APRIETE'S. La línea 630 es recursiva, es decir, se llama a sí misma 
mientras no se apriete ninguna tecla y INKEY $ valga CHR 0. No es estrictamente necesaria, pero sí es conveniente, 
antes de cualquier decisión a tomar, a través de la pulsación de una tecla, con el fin de que la decisión sea la que 
queramos, y no que la pulsación inadvertida de una tecla, cuando el microcomputador ejecuta la línea siguiente, le 
haga tomar una decisión equivocada. La línea 640 emite un sonido, y nos envía a las 630 en tanto no se apriete 
ninguna tecla. Si se aprieta una tecla, el programa continúa en la línea 650 que asigna a la variable pas (pausa) el 
valor mínimo, ya que la subrutina a9 divide ps por 15, y si se pone un valor inferior a 15, la pausa se hace cero, y el 
programa funciona sólo si mantienen apretada una tecla. Si la tecla apretada para salir del lazo anterior, constituido 
por las líneas 630 y 640, es la s minúscula, el programa sigue en la línea 50. Si la tecla apretada es otra cualquiera, el 
programa termina porque va a la línea 9000. 


SUBRUTINAS d 


SUBRUTINAS (d0) 


Esta subrutina simplemente asigna a las variables d y a sus valores correspondientes fijados por el número de 
línea donde cada subrutina empieza. 


CABECERA (dl) 


La línea 3910 escribe con al, ESCRIBE 1, el cartel S/F, S.A. La línea 3920 escribe PRESENTA con ESCRIBE 2, 
a2, y asimismo la línea 3930 escribe MATEMATICAS pero otra vez con ESCRIBE 1. Esta última línea pone otra vez 
los valores convenientes de lápiz y papel. 


DIBUJA CUADRANTES (d2) 


La línea 4110 escribe con ESCRIBE 2, a2, el cartel / CUADRANTE. A continuación la línea 4120 asigna los 
valores a las variables necesarias para ejecutar la subrutina a9. A continuación la línea 4130 escribe 1 y la 4140 
utilizando a2, // CUADRANTE. Las líneas sucesivas hasta la 4220 hacen lo mismo que las anteriores para los 
sucesivos cuadrantes. 


NOMBRA EJES (d4) 


La línea 4310 escribe el cartel; eje de ordenadas, pone las variables necesarias para a7, que identifica el eje de 
ordenadas, y ejecuta la primera vez esta subrutina. Cuando termina, pone el color de papel inicial y la ejecuta por 
segunda vez. Por último, pone el color del papel en 7 y, la línea siguiente, hace lo mismo para el eje de abcisas. 


BORRA CUADRANTES (d3) 


Lo primero que hace la línea 4410 es asignar a ps (pausa) el valor mínimo, que, como comentábamos, ver 
(Repite y a9), es 15. A continuación asigna el valor de la variable pa a la variable pai, de manera que el color del papel, 
pa, vuelve a ser ahora el color inicial del papel pai. A continuación, se dan valores a las variables necesarias para que 
funcione a9, que pinta los cuadrantes otra vez, pero esta vez del color inicial del papel y por tanto los borra, las líneas 
4420 a 4440 hacen lo mismo para los otros cuadrantes. 


Al terminar la línea 4440, recompone el valor de ps (pausa) a su valor inicial pas. 
DIVIDE EJES (d5) 


La línea 4510 escribe el cartel DIVISIONES DE LOS EJES con a2. La 4520 UNIDADES y la 4530 Largas = 10 
y cortas = 5. Esta misma línea asigna los valores necesarios, para que la subrutina a15 dibuje las divisiones pequeñas. 
La línea 4540 termina de asignar los valores, y ejecuta al5 que pinta divisiones pequeñas del eje 1 (eje ordenadas). La. 
línea 4550 cambia los valores de las variables pertinentes y vuelve a ejecutar a15 para pintar las divisiones pequeñas 
del Y eje (eje abcisas). La línea 4560, si la variable mar (marca) es igual a 1, cambia el valor de esta variable a 3 y 
vuelve a la línea 4540 para pintar las divisiones grandes. Las líneas 4570, 4580 y 4590 borran los tres carteles. 


APLICACIONES SENCILLAS 


PUNTOS (d6) 


Las líneas 4710 a 4730 escriben carteles con a2, pero los valores de a$, que es el cartel que se escribe, los toman 
de las variables a$, c$ y d$ que han sido creadas en la línea 30. A continuación 4740 realiza un proceso de ejecución 
de subrutinas, que se puede esquematizar nombrando las subrutinas: 

19) al0: escribe P 

29) all: dibuja P 

39) a13: dibuja ordenada de P 

40) a12: dibuja abcisa de P 

59%) Pausa 

69) al4: borra P y coordenadas de P 
79) a5: borra cartel de “EL PUNTO P” 
89) divide ps, pausa, entre dos 


SUBRUTINAS a 


Com comentábamos anteriormente, las subrutinas de esta serie son capaces. utilizando una serie de variables 
asignadas previamente, de realizar una función por sí mismas. 
ESCRIBE 1 (al) 

Escribe | utilizando la variable alfanumérica a$ para ir escribiendo letra a letra su contenido a partir del margen 
inferior izquierdo de la pantalla hasta la posición que esa letra va a tener en la línea correspondiente. Cada carácter es 


escrito independientemente desde su posición cero, a su posición fija. Después de ser escrito es borrado, y se emite un 
sonido, para, a continuación hacer progresar el carácter en una unidad. 


ESCRIBE 2 (a2) 


Escribe 2 utilizando la variable alfanumérica a$, para escribir su contenido en la pantalla. La subrutina simula 
que el cartel que se escribe va apareciendo letra a letra en la pantalla. 


DIBUJA EJES (a3) 


Esta subrutina dibuja dos línea perpendiculares centradas en la pantalla; la posición en la que se dibujan es 
importante para poder escribir caracteres. 


9 GRADOS (a4) 


La línea 5310 dibuja un arco de 90%, para indicar que los ejes son perpendiculares y para ello utiliza PLOT y 
DRAW. La línea 5320 escribe 90 grados directamente en la posición conveniente. A continuación la línea 5330 hace 
una pausa, borra el arco y la línea 5340 utiliza aS para borrar el cartel de 90 grados, asignando previamente los 
valores de las variables necesarias. 


BORRA CARTELES (a5) 
Esta subrutina borra carteles, centrados en la línea o no, según la variable psi (posición inicial) valga 0 ó 1. 
NOMBRA EJES (a6) 


La subrutina simula la aparición de la letra correspondiente a cada eje y su recorrido a través del eje correspon- 
diente hasta llegar a su sitio. Para ello, cada línea es un lazo que hace esto para cada semieje. De esta manera la línea 
5510 escribe “+ y” desde la posición 12 a la 5 verticales y en la posición 14 horizontal de la pantalla. Después de 
escribir “+ y” hace una pausa, emite un sonido y borrando “+ y” redibuja el eje y. Cuando el lazo termina, vuelve a 
escribir “+ y”, pero esta vez en su posición definitiva. Las líneas 5520, 5530 y 5540 hacen lo mismo, pero para los otros 
semiejes. 


IDENTIFICA EJE X (a7) 


La subrutina consiste en un lazo, que desde una posición de un carácter en la pantalla a otra y utilizando las 
posibilidades de OVER, escribe un espacio blanco con color de papel pa. La subrutina emite un sonido y hace una 
pausa en cada posición. Sirve para pintar y para borrar. 


APLICACIONES SENCILLAS 


IDENTIFICA EJE Y (a8) 


Igual a la anterior pero para el eje y. 


CUADRANTES (a9) 


La subrutina consiste en un lazo doble “FOR... NEXT”, que pinta un espacio en blanco con un color de papel a 
elección. El lazo pinta entre unas posiciones indicadas por las variables y sirve tanto para pintar, como para borrar. 


ESCRIBE P (a10) 
La subrutina calcula la posición del carácter más cercano al “pixel” indicado por las coordenadas (xa, ya) y 


escribe en esta posición una P. Para poder desplazar este carácter, le hemos sumado a la posición del eje x el valor de 
una variable yp, que permite corregir la posición de escritura calculada por la subrutina. 


DIBUJA P (al1) 


La subrutina ejecuta un lazo que pinta el “pixel” de la posición (xa, pa), emite un sonido, borra el “pixel” 
pintando su inverso, y emite otro sonido. Este lazo se ejecuta 20 veces. 


DIBUJA ABCISA P (al2) 


Esta subrutina dibuja puntos con una distancia entre ellos indicada por la variable stx. Lo que hace es pintar un 
“pixel” en la posición indicada, emitir un sonido, borra el “pixel”, emitir otro sonido, y volver a pintar el “pixel” en la 
misma posición. El lazo “FOR... NEXT” consigue que este proceso se repita desde la posición inicial del punto P, 
hasta la posición del eje y, con el intervalo marcado por la variable stx. La variable fx es una variable correctora, 
para que no se borre el eje. 


DIBUJA ORDENADA DE P (al3) 
Esta subrutina hace lo mismo que la anterior, pero para la ordenada. 
BORRA TODO (ag) 


La subrutina utiliza el sistema de las dos subrutinas anteriores, pintando los “pixel” en inverso, con lo que los 
borra. Igualmente borra la letra P. i 


DIVIDE EJES (a15) 


Desde los límites marcados por las variables po (punto origen) y pf (punto fin), la subrutina en sus líneas 6510 a 
6560, traza una línea de puntos de longitud doble de la indicada por la variable mar. La línea de puntos es horizontal 
si eje es igual a 0 y vertical si eje es igual a 1. La línea 6550 emite un sonido que depende del valor de mar y son. 


Las líneas 6570 a 6620 hacen lo mismo, pero desde el origen (po) hasta el punto inicial (pi). 
MARCA ORDENADA O ABCISA (al6) 


Según el valor que le hayamos dado a la variable nd (número de dígitos), la línea 6710 construye un “string” de 
uno, dos o tres caracteres en blanco. La línea 6720 pone los caracteres escritos en la posición indicada por las 
variables yc y ne con parpadeo, sin borrarlos gracias a utilizar OVER. 


INICIACIÓN AL BASIC 


IB 11 a IB 16 


En los programas IB 1 a IB 10 de esta serie hemos visto, someramente, las instrucciones BASIC: RUN, INPUT, 
ENTER, PRINT, GO TO y REM. 


En los programas que vamos a ver a continuación, trataremos de algunos conceptos generales del BASIC, y de 
la opción TAB de la instrucción PRINT. 


El primer programa, IB 11, ilustra el funcionamiento del TAB. La opción permite escribir algo a una distancia 
dada del comienzo de la línea. De esta manera, PRINT TAB 0: “a”, escribirá una a al principio de la línea, y PRINT 
TAB 10; “a” la escribirá en la posición 10 de la misma línea. 


La línea 10 del programa lleva, como siempre, el nombre en un REM, y como ya hemos comentado; lo que está 
escrito en una línea detrás de un REM no tiene valor para el computador. 


La línea 20 utiliza, por primera vez, la instrucción LET, que se puede traducir por deja o haz que. En esta línea 
hacemos que la variable a$ tenga el valor de los 32 caracteres que están escritos entre comillas detrás del signo igual 
que sigue a$. Hasta ahora hemos visto que, cuando queremos que el computador guarde un número, lo que hacemos 
es asignarle a un nombre inventado por nosotros ese número. 


Así, por ejemplo, la línea 20 del IB 1, es PRINT pul* 2.54. Hemos visto que, cuando se ejecuta esta línea, se 
escribe como resultado el producto del número contenido en la variable pul por 2,54. Por tanto pul está haciendo la 
misma función, que la memoria de una calculadora de bolsillo. 


Volviendo al programa IB 11, su línea 20 asigna a la variable $, a, el valor del conjunto de caracteres que están 
entre comillas. Las comillas son imprescindibles para asignar valores a las variables $, alfanuméricas, ya que el 
computador necesita saber donde empiezan, y donde terminan los caracteres que queremos asignar a a$. El motivo 
de esta línea, aparentemente extraña, consiste en que escribiendo en la pantalla esta variable con un PRINT, (ver 
línea 40), nos permite numerar las posiciones de escritura de una línea de la pantalla, dirigida por el ZX SPECTRUM. 


La línea 30 tiene una instrucción INPUT, que permite darle a la variable a cualquier valor numérico. Si hemos 
escrito antes, entre comillas, la pregunta “Dígito:”es con el fin de que se responda un número entero de una sola cifra 
para apreciar mejor las características del TAB. 


La línea 50 contiene otro INPUT que permite dar un valor a la variable tab del PRINT. Es interesante 
considerar el punto y coma después de la variable tab y el otro punto y coma después de la variable a. El primer 
punto y coma después de la variable tab es muy importante, ya que si utilizamos cualquier otro de los signos 
admisibles, por ejemplo coma, este signo será tenido en cuenta por el PRINT, y hará funcionar al TAB de manera 
anómala. El punto y coma después de la variable a es igualmente importante, ya que de no ponerlo al terminar de 
escribir la variable a, el computador salta una línea, y el siguiente TAB no puede escribir en la misma línea. 


La línea 70 del programa contiene GO TO, que obliga al SPECTRUM a seguir la ejecución del programa en la 
línea 50, lo que permite comprobar el funcionamiento de la instrucción TAB. Aconsejamos a los lectores que jueguen 
con el programa, una vez estudiado, para descubrir las múltiples aplicaciones de esta instrucción. 


-INICIACION AL BASIC 


Los números que admite el INPUT de la línea 50, que pregunta: Dónde lo escribo; y van a ser el valor de la 
variable tab, están comprendidas entre el 0 y el 65535. Estos números se pueden escribir utilizando sólo 2 bytes. Los 
2 bytes son 16 bits (8 bits por byte) y 2 elevado a 16 es 65536 y siendo el cero un número; entre 0 y 65535, hay 65536 
números, como entre 0 y 9 hay 10 números. El computador transformar el número que asignamos a tab en un 
número entero entre 0 y 31. Si la posición del carácter donde debe escribir es anterior al último carácter escrito en esa 
línea, entonces salta una línea, y escribe en la línea siguiente. Si es posterior, y gracias al punto y coma que hay 
después de a escribe a continuación en la misma línea. 


El programa IB 12, muy parecido al IB 11, permite observar, en su línea 50, el tipo de cálculo que el ZX 
SPECTRUM hace para transformar un número entre 0 y 65535 en otro, entre 0 y 31. 


Por el momento, aconsejamos no preocuparse del tipo de cálculo que hace al ejecutar la línea 50, basta saber que 
no es milagroso, y que transformaciones de este tipo son muy útiles para muchos programas sencillos. 


El programa siguiente, el IB 13, lo incluimos, para alegrar visualmente, un poco, esta serie. Utiliza la instrucción 
que nos ocupa para dibujar asteriscos en la pantalla, de manera que parecen correr en diagonal. La línea 50 es la 
única diferente, y sirve para evitar que el ZX SPECTRUM pregunte “SCROLL?” cuando termine la página que está 
escribiendo. En este caso la palabra inglesa “SCROLL” podría ser traducida por: Si quiere otra página, apriete 
cualquier tecla, y que en realidad significa rollo de papel o espiral, por el efecto de enrollado de la pantalla. 
Aconsejamos a los lectores que por ahora se olviden del motivo de su funcionamiento, y la utilicen siempre que 
necesiten que el ZX SPECTRUM no se pare al terminar cada página preguntando “SCROLL?”. Para cualquier 
lector curioso su funcionamiento está explicado en la página 176 del manual (variable del sistema SCR CT). 


Este programa admite muchas variaciones. Entre ellas las que causan más efecto óptico, son variaciones en el 31 
de la línea 40, y el asterisco de la línea 30. Se puede incluir un INPUT a$ en una nueva línea 15 y sustituir en la línea 
30: “*”;, por ; a$ y de esta manera lo que contestaremos en el INPUT lo veremos correr por la pantalla. 


LOS NUMEROS DE LINEA EN BASIC 


Los números de línea en el BASIC de Sincler, van del 1 al 9999, y esto quiere decir que podemos utilizar 
cualquier número entre estos dos, y el computador los va poniendo en orden al pulsar ENTER, y al escribir RUN y 
ENTER los ejecuta del menor al mayor. Cuando se pone en marcha un programa, el ZX SPECTRUM busca el 
primer número de línea, y ejecuta esta línea, después busca el número de línea siguiente y sigue así hasta no encontrar 
más líneas. 


El BASIC es un lenguaje de alto nivel, lo que quiere decir que la máquina no lo entiende si no es previamente 
traducido a su lenguaje, el código máquina. Normalmente los lenguajes de alto nivel son traducidos por un programa 
que se llama compilador al código máquina. El compilador, cuando se ha ejecutado, produce un programa que es la 
traducción del programa escrito en lenguaje de alto nivel (BASIC, FORTRAN, PASCAL, ADA, ALGOL, etc...). El 
programa producido por el compilador no puede ser listado, ya que está en código máquina, y es, por tanto, un 
conjunto de bytes sin sentido para nosotros, que se conoce con el nombre del programa objeto, en contraposición 
con el programa a partir del cual el compilador lo creó que se llama fuente. Estas nociones interesantes no sirven para 
el BASIC, ya que este lenguaje no tiene compilador, normalmente, y es traducido línea a línea por un programa que 
se llama intérprete, y ejecutado inmediatamente, es decir, el intérprete no crea un programa objeto, sino que traduce 
directamete cada instrucción y la ejecuta. Por ello en BASIC son muy importantes los números de línea, ya que 
sirven al intérprete para saber dónde tiene que continuar a traducir y ejecutar. 


El programa IB 14 es igual al programa IB 10, con la diferencia de que se ha utilizado TAB en la línea 20. La 
razón de poner aquí este programa es más para transformarlo en el IB 15 y 1B 16, que para poner los TAB de la 
línea 20. 


El programa IB 15 tiene unos números de línea raros, pero perfectamente admisibles. El hecho de que, 
normalmente, las líneas se numeren de 10 en 10 obedece a una costumbre que tiene como ventaja el poder incluir. 
instrucciones entre dos líneas. La práctica enseña, que es mejor numerarlas de 10 en 10, que de 2en 2 ó de 1 en 1, pero 
no hay incoveniente alguno en numerarlas de cualquier manera, aunque siempre sea interesante adaptarse a las 
costumbres. ; 


INICIACIÓN AL BASIC 


Hrtr+et erre tr+r?? 
444 ++ 

HE4 A Aer rre? 

Hh+d e A rr re rre 
hd EA rr re rre ++ 
++ +44 rre rr rr rr rre ee 
+ Herr rr rr rre 
DAA AAA 
44 A e reee + 
Herr rr rr rre rr ree? ++ 
HH AA RA Ae ++ 
Hp A RRA e +++? 
HH 4 rr A eee 
H44 A A A RA eee 
HAHAHA ARA AAA ee ++ 
HARE RA Rd Ae 
PEA AA pre 
HRRA RRA RRA RARA Ae 
HH RR A Ae Ae 
Eh RA RA erre 
HA HR AR Are 
HAR4 RRA AAA 


MULTIPLES INSTRUCCIONES EN UNA LINEA 


El ZX 81 no podía llevar más que una instrucción por línea pero, por suerte, el ZX SPECTRUM permite un 
número de instrucciones por línea, prácticamente indeterminado. Para separar una instrucción de la siguiente, el 
BASIC de Sincler uiliza el signo dos puntos. Aunque esta manera de separar instrucciones es hoy en día bastante 
universal, no todos los BASIC utilizan este signo. 


El programa IB 16 ilustra cómo se puede poner un programa completo en una sola línea. En este programa el 
REM va al final, ya que si fuese al principio no funcionaría el programa, porque como ya hemos comentado varias 
veces, lo que está detrás de un REM en una línea el computador no lo tiene en cuenta, aunque sean instrucciones 
válidas. La línea lleva casi al final una instrucción PAUSE 0, que detiene la ejecución hasta que se apriete cualquier 
tecla. La instrucción PAUSE a detiene momentáneamente el programa durante a/50 de segundo, pero la PAUSE 0 
lo detiene hasta que se apriete cualquier tecla. 


30 REM TIBL. : 
20 LET_a 450 7539012345578 
9012345673 


30 INPUT ¡91 Saa 
IB 11 : TNSUT Lo escribo:"; 


PRINT 
GO TO 


10 REM 1612=TAB 

20 LET a$="01234557389012345573 
2012345678901" 

30 PRINT a5 

d0 INPUT "Conde lo escritbo:";¡t 


ab 
4 LET pos=32%+1(tabs+*S32-INT (tab 
2) 


50, PRINT TAB tab;pos, 
70 0 TO 40 


4 
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REM PRISiTOR 
LET ta=0 

FRINT THAT TT 
LET ta=ta+31 
PORE 23692,255 
GO TO 36 


CN La e 
aotolololo! 


10 REM IBlá4=Circunferenci 
e PRINT TAB 6; "CALCULO CÓNGIT 
¿TAB 3; "CIRCUNFERENCIA 


= "¡radio 
¿Hadio de "ira 


FRIN 
GO TO 40 


232 REM IBIS=CIiFC 

257 PRINT TAB 5;" 
¿TAB 3," 

¿DADO EL RADIO 


RINT 
NPUT "Radio = 
RINT “Con un fr 
Longitud es '; 
hd PadioraxPI' 


CLS : PRINT TAB 6; "CALCULO 
LONGITUD DE UNA";TAB EU 


SUBRUTINAS 


“CZX 1” 


Como hemos comentado varias veces, tenemos la intención de incluir subrutinas de los programas, para que 
vosotros podáis utilizarlas en los vuestros. Estas subrutinas os podrán ahorrar mucho tiempo a la hora de programar, 
al menos, esta es nuestra intensión. 


El programa CZX 1 es capaz de renumerar otro programa previamente escrito y no solamente renumera otro 
programa, sino que es capaz de renumerar trozos de un programa. Está ideada para renumerar las subrutinas que 
pondremos en sucesivas cassettes, que van a empezar todas en la 8000 y por tanto es necesario, para utilizar más de 
una, cambiar los números de línea del programa que tenemos en la memoria del aparato y de la subrutina cargada 
primero para dejar libres las líneas 8000 a 9000, para cargar la siguiente subrutina. El programa no cambia los 
números de línea de los GO TO, GO SUB, RESTORE, LIST, RUN... Los números de la línea utilizados son 
correlativos, y solamente cuatro para que sean fáciles de borrar después de cambiar los números de líneas necesarios 
ya que el ZX SPECTRUM no tiene, por desgracia, la opción DELETE m, n que borraría los números de líneas del m 
al n. 


El programa se carga con MERGE para no borrar el programa que está en la memoria y para ponerlo en 
marcha, se escribe GO TO 9000 ó RUN 9000 y ENTER. Los nombres de las variables son raros y largos para que 
haya pocas posibilidades de que el programa en la memoria tenga estos nombres, y puedan existir problemas. 


Al ser ejecutado, pide cuatro datos que son los siguientes: 


1) Línea inicial a mover: Es el número de la primera línea a la que queremos cambiar su número de línea. 
2) Línea inicial a no mover. Es el número de la primera línea a partir de la que no queremos cambiar la numeración. 
3) Línea inicial NUEVA: Es el número de línea nuevo que queremos que tenga la primera línea a cambiar. 
4) Separación entre líneas: Es el número de líneas entre una determinada y la siguiente. : 


AMD WNARZ 
+3] + -U 


DA ADA AO 


m8 


SUBRUTINAS 


Para cambiar la numeración de un porgrama con CZX 1, aconsejamos que se empiece el cambio por el final de 
programa, para ir dejando para las líneas intercaladas. Si al utilizarlo, el último número de línea nuevo, es superior al 
sucesivo viejo, no preocuparse. mucho, y volver a renumerar ese fragmento con una separación inferior, y a conti- 
nuación renumerar el final para dejar espacio, e intentar renumerar de nuevo ese trozo. 


PROGRAMA 


Los 4 INPUT, al estar escritos con una sola instrucción INPUT permanecen en la pantalla, mientras no se 
suministra el último dato, lo cual, en este caso, es útil. La variable dirin, dirección inicial, contiene la dirección inicial 
del programa basic en la memoria. Ver las variables del sistema en el capítulo 25 del manual en su página 174, la 
variable PROGR. 


La variable nulin, número de línea, contiene el número de línea que, como se explica en el capítulo 24, página 
166 del manual, son los dos primeros bytes de cada línea. La variable longit, longitud, contiene la longitud de la línea 
y la obtiene de los bytes 3 y 4 de cada línea (ver la pág. 166 del manual). 


El programa busca número de línea a número de línea hasta encontrar el primero que queremos cambiar; una 
vez lo encuentra, transforma el primer número de línea nuevo en sus dos bytes, y cambia a esa línea su número viejo 
por el nuevo. Después le suma a la variable nume, que contiene el número de línea nuevo, la separación entre líneas 
que está en la variable separ. Posteriormente le suma a dirin la longitud de la línea para que dirin, contenga el 
comienzo de la línea siguiente, y poder continuar el proceso de cambio de números hasta que encuentre el número de 
línea que no queremos cambiar, y se detenga. El programa, por tanto, está dirigido por la línea 9003. 


ES 0 Ñ 


CIMA MATT ue 
MONOS MONO 4 E NR E E] Se 
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PROGRAMAS DIDACTICOS COMENTADOS 
COLECCIONABLES PARA ZX SPECTRUM 


FASCICULO 
3 


Indice de la cassette 


EXTRAER E AAA ARRE RARA REEF 


Contador= 5 A1INS 


Nombre: MONTE Eroarama 
12534557590 


Programa= 5255 butes 
Variables borradas previamente 
5e ejecuta dezde la Llinea= 10 


ECRETEREECERE ELLE REEL IERAAACIAEEAES 


Contador= S4 AIN3 


Nombre: ps ni bytes 


Avray de bytes 

Longitud= 1709 

Dirección de comienzo= 653555 
Dirección final= 8655389 


EXARAERERE RARE RA RARA REA 


Contador= 106 RINS 


previamente 


EEFAERARA RA RACER AREA ARA AAA 


Contador= 155 AINS3 

Nombre 3UB1ME Erograma 
123145573590 

Programa= 2707? bytes 

Variables borradas previamente 

se ejecuta desde la linea= 140 


EXA AAA ERA RRA AAA 


Contador= 204 AINS3 


Nombre: 3UB1Imel Programa 
1234567390 

Programa= 1220 bytes 

Variables borradas Previamente 

Se ejecuta desde la linea= 1 


ELXAEARAEAAAA RELE AAA RARA AA AAA 
E, 


Contador= 25< RINS 


Nombre: 3LUBImca45k bytes 
123145573990 . 

Array de bytes 

Longitud= 47 

Dirección de comienzo= 56S3a 

Dirección finmal= ES357 


INDICE 


HALLAR ERA AAA ARRE 
Contador: 239% ARS 


Nombre: 


Ti 

a] 

| 
ma a 
E 
O 1 


35 


ce 
mm 0 


nm 


Ccontador= 345 RINS 


Contador= 39d RINS 


Erograma 
15] 


contacor= dde RINS 


Homerea: SUBZ Erogarama 
1234567390 


Prosrama= ?O0d bytes Ñ 
Lara Eles orradas previamente 
ES : 


EXEAARARAAA AAA AAA AAA AAA 


AIN3 


mea 


Contador= Sd. A1N3 


ombre SUBE Erograma 
12345575390 


1) 


reviament 
Linea= 10 


EXEREFERAAL EA 


Contador= 531 A1IN3 


Programa 


Mari 
Ho se 


APLICACIONES SENCILLAS 


PROGRAMA “MONTE” 


El monte es un juego muy conocido que básicamente consiste en que hay un número variable de objetos 
agrupados en pilas (montes) y cada jugador saca sucesivamente de una pila una cantidad variable de objetos. 


Este juego es uno de los más utilizados cuando se quiere hacer una demostración de cómo un microcomputador 
es capaz de jugar con una persona y ganarla. El juego se puede programar de tal manera que el computador juegue 
bien pero no gane siempre. 


La estrategia que sigue el ZX Spectrum para jugar consiste, básicamente, en realizar la mejor jugada posible o, 
en caso de que no se pueda hacer una jugada buena, hacer un movimiento al azar. 


El algoritmo que utiliza el ZX Spectrum para jugar se cuenta en la explicación del programa lo que hará la 
lectura de la misma más interesante. Sin embargo, y dado que es ligeramente complicado, próximamente explica- 
remos con todo detalle cómo se juega para ganarle. 


El juego consiste en que en la pantalla aparecen unas líneas de objetos de las cuales uno de los jugadores va 
sacando objetos. Cada jugador saca objetos de un solo monte y el número de objetos que saca puede variar entre uno 
y todos los que hay en ese monte. El jugador que se queda con el último objeto, gana la partida. 


El programa consta de las siguientes subrutinas: 
EJECUCION: 

Ejecuta el programa subrutina a subrutina. 
PONE LOS OBJETOS: 


Rellena una matriz con los objetos cargados como caracteres gráficos definidos por el usuario. 


INICIA VARIABLES: 


Asigna valores a diversas variables que necesita el programa. Y carga el número de objetos inicial en cada 
monte. 


CONSTRUYE TABLA BITS: 


Construye una tabla con la representación binaria de los números de objetos que hay en cada monte. 
LISTA DE PARIDAD TABLA: 

Construye una tabla que contiene un 1, si la suma de cada columna de la tabla de bits es impar o un 0, si es par. 
BUSCA UN IMPAR: 


Como su nombre indica busca un impar en la tabla de paridad. 


BUSCA MONTE CON BIT=1: 


Una vez que ha encontrado en la tabla de paridad un impar, busca el monte correspondiente. 


APLICACIONES SENCILLAS 


NUMERO A RESTAR: 


Calcula el número que tiene que restar para que todas las columnas representadas en la tabla de paridad sean 
pares, es decir, contengan 0. 


MOVIMIENTO AL AZAR: 


Si el computador encuentra, cuando trata de calcular un movimiento, que todas las columnas de la tabla de 
paridad son pares, hace un movimiento al azar, sacando del primer monte que tenga objetos un número al azar 
entre 1 y el número máximo de objetos que hay en ese monte. 


RESTA: 


Resta el número de objetos del monte correspondiente. 


PANTALLA: 


Esta subrutina divide la pantalla en el número de líneas necesarias para dibujar una línea y los objetos de cada 
monte; dibuja las líneas y pinta los objetos. 


VIGILA FIN: 


Vigila, antes de que cada jugador haga su movimiento, que haya algún objeto en algún monte si no lo hay, el 
juego se ha terminado. 


JUEGA JUGADOR: 


Permite que juegue el jugador contra el aparato. 


JUEGA SPECTRUM: 


Juega el aparato. 


QUIEN MUEVE PRIMERO: 


Calcula al azar. quién mueve primero. dándole al jugador el 75% de probabilidades de jugar primero. Si el 
Spectrum juega primero. gana siempre. 


HISTORIA: 


Cuenta la historia del juego. 


HISTORIA 


die ARTE A 


;E E 
Y. 8, MT za, 


30m 
H rr eu >Jw 


WS 
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APLICACIONES SENCILLAS 


ESCRIBE: 


Escribe en la pantalla simulando un aparato telegráfico. 


INICIA PROGRAMA: 


Escribe las condiciones del juego y fija el número de montes. 


FIN TU: 


El final del programa. cuando gana el jugador. 


FIN ZX: 


El final del programa. cuando gana el Spectrum. 


REPITE O NO: 


Repite el juego o termina, según se apriete la tecla S u otra cualquiera. 


DESCRIPCION DEL PROGRAMA 


Las líneas 1, 2, 3 llevan tres REM con el nombre del programa. 


La línea 10 fija el tope artificial de la RAM, en el byte anterior al comienzo de los caracteres gráficos definidos 
por el usuario. La línea 20 carga los 168 bytes de los caracteres gráficos definidos por el usuario. La línea 30 
dimensiona una cadena de 200 caracteres que va a ser utilizada por la subrutina ESCRIBE. A continuación, esta 
misma línea borra la pantalla con CLS. 


DESCRIPCION DE LAS SUBRUTINAS ó 
Dejaremos la subrutina EJECUCION para el final porque es la que ejecuta todo el programa. 


PONE LOS OBJETOS. 


Esta subrutina en su línea 820 comienza por asignar a la variable a$ (1) la frase “ Estoy trabajando”. 
A continuación, asigna valores a las siguientes variables, que van a ser utilizadas por ESCRIBE, para escribir, la 
frase arriba indicada, en la pantalla; pa=color del papel, ti=color de la tinta, nl=número de líneas a escribir, ye=posi- 
ción en la pantalla de la línea donde se comienza a escribir. Después, nos envía a la subrutina ESCRIBE, que 
escribirá la frase con esas condiciones. La línea 830 dimensiona una variable w ( )a una matriz de 8 x 12x 3 números. 
Las líneas 840 y 890 son un lazo que rellena la matriz. 


La matriz contiene por una parte los caracteres gráficos de 12 objetos de cada monte, el color de la tinta y el 
color del papel con el que los escribe: Para rellenarla de objetos, calcula un número al azar entre 1 y 12, que suma 
al valor 152, código del primer carácter gráfico que es un objeto. La línea 850 fija el color de la tinta de cada objeto 
calculando un número al azar entre 0 y 2. La siguiente, línea 860, fija el color del papel para cada objeto, calculando 
un número al azar entre 0 y 3 al que le suma 4 para que oscile entre 4 y 7. La línea 870 contiene un BEEP, que va a 
emitir un sonido muy corto, que oscilará entre 12 y 30, en la escala de la instrucción BEEP. La siguiente línea es el 
final del lazo. La línea 890 borra la pantalla y termina la subrutina. 


INICIA VARIABLES. 


Comienza por fijar el valor de una variable tr (trampas) en O para, a continuación, utilizar la instrucción 
RANDOMIZE. Esta instrucción permite crear diferentes secuencias de números al azar. La línea 1030 dimensiona 
tres variables: m ( ) con 8 valores, que va a contener el número de objetos de cada monte; b (,) que contendrá una 


APLICACIONES SENCILLAS 


matriz de 8 x 4, con la representación binaria del número de objetos de cada monte contenido en m ( ), y p ( ) que 
contendrá la tabla de paridad de las columnas de bits de los montes. En la línea 1040 empieza un lazo que asigna a la 
variable m ( ) valores al azar entre 6 y 12, que será el número de objetos contenidos en cada monte. El lazo funciona 
entre el número 1 y el número de montes (nu) y, por tanto, solamente rellenará con objetos los valores de m (s) 
correspondientes al número de montes. La línea 1070 asigna a la variable nb (número de bits) el valor 4, ya que con 
4 bits se pueden representar 16 números que son suficientes para los 12 objetos que contendrá, como máximo cada 
monte. 


CONSTRUYE TABLA BITS. 


Esta subrutina es un conversor de decimal a binario. Consiste en dos lazos, el primero de los cuales asigna a la 
variable n0 el número de objetos que hay en el monte s; el segundo transforma n0 en un número binario que se 
guarda en la matriz b (s,t,), de tal manera que las sucesivas t tienen el valor binario del número n0. 


LISTA DE PARIDAD TABLA. 


Para construir la lista de paridad lo que hace es ir sumando los valores de cada columna de la tabla de bits. 
A continuación calcula si la suma es par o impar, asignándole a la variable p (t) el valor 0 si es par y el valor 1 si es 
impar. 


BUSCA UN IMPAR. 


Comienza por asignar a la variable imp (impar), el valor 0, es decir, par. A continuación, un lazo recorre la 
tabla de paridad si el valor que encuentra es 0, sigue y, si es 1, termina el lazo dándole a la variable imp el valor de la 
columna donde ha encontrado un impar. Esta subrutina cuando no encuentra ningún impar deja el valor de imp 
en 0, con lo que la línea 1340, nos envía 1600 que es el comienzo de la subrutina MOVIMIENTO AL AZAR. Si hay 
algún impar, el programa continúa en la subrutina siguiente, busca monte con bit=1. 


BUSCA MONTE CON BIT=1. 


El lazo que empieza en la línea 1420, va revisando la variable b (s, imp) para el valor de imp con el fin de 
encontrar un bit=1. Si lo encuentra asigna a la variable mon el valor s y termina. 


NUMERO A RESTAR. 


Comienza por asignar a la variable n0 el valor 0, a continuación ejecuta el lazo que oscila entre el valor imp (el 
número del monte con un bit=1) y el número de bits. La línea 1530, nos envía a la 1590, si el valor de la variable p 
(s)=0, es decir, si la suma de los bits de esa columna es par. Si la suma es impar y por tanto, p (s)»=1, calcula el valor 
decimal de ese bit, en la línea 1540, y se lo asigna a la variable nl. La línea 1550 nos envía a la 1580 si en la tabla de 
bits de ese monte, en ese lugar hay un 0, y por tanto (línea 1580) se le resta a la variable n0 el valor de n1. Si en esa 
posición de la tabla de bits hay un 1, el programa continúa en la línea 1560, que suma a la variable n0 el valor de la 
variable n1 y, continuando en la línea 1570, va a la 1590, y sigue calculando el siguiente bit. En resumen, esta 
subrutina consigue dejar la tabla de paridad de las columnas con todos sus valores igual a 0. 


MOVIMIENTO AL AZAR. 


Como decíamos en la subrutina BUSCA UN IMPAR (línea 1340), si no existe ningún impar el computador 
hace un movimiento al azar utilizando esta subrutina. La subrutina comenzando por el monte 1, comprueba si tiene 
algún objeto, de no ser así sigue al siguiente monte. Si encuentra un monte con algún objeto le resta, a ese monte, un 
número entre 1 y el número total de objetos que tiene y termina asignándole a la variable mon el número de ese 
monte. 


RESTA. 


Esta subrutina en todos los casos, es decir, tanto si está jugando el aparato como si lo hace el jugador, resta al 
monte identificado por el valor de la variable mon el valor de la variable n0 y termina. 


APLICACIONES SENCILLAS 


PANTALLA. 


Esta subrutina es bastante complicada, sirve para dibujar las líneas en la pantalla. El primer problema, es que el 
aparato dibuja puntos (pixels) a partir del margen inferior izquierdo de la pantalla y en cambio la opción AT, de la 
instrucción PRINT, escribe caracteres a partir del margen superior izquierdo de la pantalla. Por tanto, la subrutina 
tiene que hacer los cálculos pertinentes para dibujar rayas horizontales que permitan escribir entre ellas. El lazo 
identificado por la variable t pinta los objetos, uno detrás de otro, que hay en ese monte, con un color del papel que 
busca en la variable w (x, y, z) y con el color de la tinta que busca en la misma variable. El carácter gráfico está 
también en esta variable. La instrucción de la línea 2030 lo que hace es dibujar la última línea y terminar la subrutina. 


VIGILA FIN. 


Comienza por asignar el valor 0 a la variable sigue para después el lazo que viene a continuación sumarle l, a la 
variable sigue, siempre que en ese monte haya algún objeto. De esta manera si cuando termina el lazo sigue vale 0, es 
que no hay ningún objeto en ningún monte. Esta subrutina se utiliza antes de cada jugada, bien sea del computador 
o del jugador, para comprobar que el juego no ha terminado. 


JUEGA JUGADOR. 


Comienza por borrar la pantalla en la línea 3020, y por ir a la subrutina que comienza la línea 2000 que dibuja 
los montes y los objetos en la pantalla. A continuación la línea 3030 escribe “TU JUEGAS” y, en el lugar corres- 
pondiente a los INPUT, escribe “Monte” para permitirnos decirle el número del monte de que queremos extraer 
objetos. Si este número es inferior al 1, o superior al número de montes vuelve a la línea 3030 y nos pregunta otra 
vez el monte. La línea 3040 asigna a la variable a$ (1), el valor alfanumérico “No hagas trampas o no juego”. La 
línea 3050 va a la línea 3080, si el número del monte que le hemos dado es inferior al número de montes que hay, o si 
el monte del que le hemos dicho que queremos sacar objetos contiene algún objeto. Si el monte del que queremos 
sacar objetos es superior al número de montes, obviamente, es imposible, o si el monte del que queremos sacar 
objetos no contiene ninguno, nos envía a la línea 3060. En esta línea se comprueba si la variable tr (trampas) menor 
que 5. Si es mayor que 5, se va a la línea 3100 que borra la pantalla y escribe en el centro “NO JUEGO” y termina el 
programa. vendo a la línea 9999. La línea 3070 suma a la variable tr el valor 1; asigna a las variables necesarias para 
la subrutina ESCRIBE sus valores y, ejecutando la subrutina ESCRIBE, asigna el valor 7 a la variable pa, 0 a la 
variable ye y vuelve a ejecutar la subrutina ESCRIBE con lo que borra la frase, yendo a la línea 3030 que pregunta el 
número del monte del que queremos extraer objetos. Las líneas 3080 a 3110, siguen el mismo procedimiento para 
preguntar “El número de objetos a sacar”. La línea 3120, saca del monte correspondiente el número de objetos que le 
havamos dicho. para terminar la subrutina en la línea 3130. 
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APLICACIONES SENCILLAS 


JUEGA SPECTRUM. 


Esta subrutina comienza por borrar la pantalla (línea 3820) e ir, como la subrutina anterior, a la subrutina 2000, 
que dibuja las rayas y objetos en la pantalla para, a continuación, (línea 3830) escribir en la posición de pantalla y, x, 
0. 21. “Juego YO”. La línea siguiente va a la subrutina CONSTRUYE TABLA BITS y después a RESTA para 
calcular el número de objetos que tiene que restar, y restarlos. La línea 3850, escribe en la posición de la pantalla y, x, 
0. 0. el monte y el número de objetos que se saca. La línea 3860, hace una pausa de 100 y termina la subrutina. 


QUIEN MUEVE PRIMERO. 


Comienza en la línea 4020 ejecutando la instrucción RANDOMIZE para seguir asignando a la variable suerte el 
valor 1. si el número generado por la instrucción RND (RANDON) es menor o igual que 0,25. Por tanto, suerte será 
igual a 0 en el 75% de los casos. 


HISTORIA. 


Esta subrutina utiliza la variable a$(1) para escribir frases en la pantalla con la subrutina ESCRIBE. 


ESCRIBE. 


Esta subrutina escribe en la pantalla el contenido de la variable a$(1). Para ello necesita las variables nl, yc, ti y 
pa que son: nl=número de líneas que tiene que escribir; ye=posición inicial en la pantalla de la primera línea a 
escribir; tizcolor de la tinta; pa=color del papel. 


La subrutina comienza, línea 6030, fijando los valores de las variables internas necesarias. De esta manera 
calcula el número de caracteres que tiene que escribir multiplicando el número de líneas por 32. Al multiplicar el 
número de líneas por 32, consigue que la subrutina escriba siempre líneas enteras independientemente de que a$(1) 
contenga o no suficientes caracteres. 


El lazo empieza en la línea 6040 escribiendo en la posición 31 de la línea, el carácter primero de la variable 
a$(1), para en la siguiente ejecución del lazo escribir desde el carácter primero de a$(1) al segundo y, en la tercera 
ejecución, desde el primero al tercero, todo ello avanzando cada vez un carácter hacia la posición cero de x en la 
pantalla, es decir, el margen izquierdo. Cuando escribe, utiliza como color de INK y PAPER los valores de las 
variables ti y pa. La línea 6060 se utiliza para asignar el valor de la variable pe que servirá para fijar el tiempo de la 
instrucción BEEP de la línea 6070. Esta línea hace que pe sea 0,003 cuando el último carácter a escribir en cada 
ejecución del lazo sea distinto de un blanco, CHR $ (32), y 0,2 cuando el último carácter a escribir en cada ejecución 
sea un blanco siempre que el siguiente sea distinto de blanco. Esta última condición permite que pe sea cero si tiene 
que escribir una línea sin caracteres. La línea 6090 y 6100 trocean la cadena de caracteres a$(1). La variable se, que es 
la posición x de escritura, se disminuye en una unidad hasta que sea igual a — 1, línea 6100, que se le suman 32, la 
variable yc se incrementa en 1 cuando se sea —1; y a la variable ps, primer carácter a escribir en cada ejecución del 
lazo, se le suman 32 cuando se es igual a —1 para empezar la nueva línea. La línea 6110 termina el lazo; la 6120, la 
subrutina. 


INICIA PROGRAMA. 


La subrutina da comienzo al juego preguntando el número de montes. Antes, escribe las condiciones del juego 
en la pantalla utilizando la subrutina ESCRIBE y fijando previamente las variables que ésta necesita. 


Si el número de montes es menor de tres, pregunta la edad y si es mayor de 15 fija el número de montes en 3. 


FIN TU. 


Comienza por borrar la pantalla para, a continuación, dibujar en ella, con un color de tinta al azar entre 0 y 3, y 
un color de papel al azar entre 4 y 7, “BRAVO GANASTE”. Ejecuta un BEEP y repite el lazo 44 veces. A continua- 
ción, línea 8030, asigna a s$ el valor alfanumérico “ganando” que necesita la subrutina REPITE O NO. 


APLICACIONES SENCILLAS 
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FIN ZX. 


Tambien empieza por borrar la pantalla, para continuar escribiendo las frases que se pueden leer en el listado y 
termina asignando a a$ el valor “Perdiendo” para la subrutina REPITE O NO. 


REPITE O NO. 


La subrutina escribe a$ (1) en la pantalla (ver listado), y utiliza la línea 8650 que es recursiva, es decir, se llama 
a sí misma hasta que no se apriete ninguna tecla. Esta línea 8650 no es estrictamente necesaria, pero es conveniente 
ya que si se suprime, y el aparato ejecuta la línea siguiente cuando se ha apretado inadvertidamente una tecla, el 
programa termina. 


La línea 8660 termina el programa si se aprieta cualquier tecla que no sea s minúscula. Si se aprieta la s la línea 
8670, borra la pantalla, llena la matriz de objetos, subrutina PONE LOS OBJETOS, y entra en la subrutina 7000 en 
la línea 7040, con el fin de que no se escriban otra vez las condiciones del juego, y va a la línea 150 de la subrutina 
EJECUCION. 


EJECUCION. 
Esta subrutina ejecuta el programa: 


La línea 120 ejecuta PONE LOS OBJETOS, rellenando la matriz x ( ). 
La línea 130 ejecuta HISTORIA, contando el juego. 
línea 140 ejecuta INICIA PROGRAMA, dando comienzo al programa. 
línea 150 ejecuta INICIA VARIABLES, rellenando la matriz w ( ) que contiene el número de montes. 
línea 160 ejecuta QUIEN MUEVE PRIMERO. 
línea 170 va a la 210 si suerte es igual a l, y a la 180 si suerte es igual a 0. 
línea 180 va a la 240 si suerte es igual a 0, y a la 190 si suerte es igual a 1. 
línea 190 ejecuta VIGILA FIN, fijando la variable sigue en 1 si queda algún objeto en algún monte. 
línea 200 va a la 8000 (210+7790) si sigue es igual a cero, es decir, si tú ganaste. 
línea 210 ejecuta JUEGAS SPECTRUM. 
línea 270 ejecuta VIGILA FIN. 
línea 230 va a la 8200 (240+7960) si no hay ningún objeto en ningún monte y sigue es igual a cero. 
línea 240 ejecuta TIENE JUGADOR. 
línea 250 vuelve a ejecutar a partir de la línea 190. 
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APLICACIONES SENCILLAS 
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APLICACIONES SENCILLAS 


SUBRUTINAS 


Todos, cuando empezamos a programar, hemos oído que antes de sentarse delante de la pantalla de un 
computador hay que saber qué queremos conseguir que haga la máquina. El problema, a nuestro entender, es que 
cuando empezamos a programar no sabemos qué es lo que la máquina puede hacer y mucho menos cómo hacerlo. 


Está claro, desde este punto de vista, que durante este período inicial lo importante es sentarse delante de la 
máquina y hacer algún programa. 


Cuando ya se han hecho los primeros 10 programas de más de 10 líneas surge otro problema derivado de que los 
programas que hemos hecho son una inextricable maraña de GOTO y si los dejamos diez días en un cajón no los 
entendemos ni nosotros mismos. 


Para evitar esta dificultad, al leer nuestros propios programas o para poder modificarlos mejor, es conveniente 
hacer programas estructurados. Siempre que se enfrenta uno a esta palabra se pregunta qué quiere decir estructurar 
un programa y esto es lo que tratamos de explicar de manera sencilla, en las siguientes líneas. 


La programación estructurada es, más que una definición, una actitud al programar. Básicamente, consiste en 
programar por trozos pequeños, independientes y capaces, cada uno de ellos, de realizar el cometido de una parte del 
programa. 


Hay lenguajes de alto nivel que están ideados para forzar al programador a tener esta actitud, como son el 
PASCAL o el C, pero, por desgracia, el BASIC está lejos de ser un lenguaje fácil de estructurar. Creemos que por 
esta razón Sincler ha introducido estructura típicas del PASCAL en su nuevo BASIC para el QL. 


La actitud que lleva a crear programas estructurados en BASIC pasa, en principio, por suprimir la instrucción 
GOTO y sustituirla por GOSUB. De esta manera, que al principio supone un esfuerzo considerable, nuestros 
programas dejarán de ser programas “spaghetti” para convertirse progresivamente en programas estructurados. 


No todo el mundo piensa que la programación estructurada es lo mejor y la causa es que un programa 
estructurado es generalmente menos eficiente que su honónimo “spaghetti” pero, sin embargo, la tendencia actual, es 
considerar que los programas estructurados tienen enormes ventajas que compensan con creces su ligera pérdida de 
velocidad. Entre estas ventajas se pueden citar la de ser mucho más fáciles de cambiar, el que se entienden mucho 
mejor y el que cuando hay que corregir algo, este algo, está en un fragmento del programa fácilmente identificable. 
Sin embargo, y debido a la masificación de los computadores, quizás la ventaja más acusada es que nos obliga a 
dividir el programa en una colección de fragmentos que se llaman subrutinas y que son fácilmente transportables de 
un programa a otro y de un aparato a otro. 


En general cuando se elabora un programa, sea o no estructurado, hay fragmentos del mismo que se utilizan 
más de una vez. Estos fragmentos, separados conceptualmente del programa principal, realizan una función especí- 
fica y se elaboran separadamente del programa. Estos fragmentos, la subrutinas, hoy en día tienden a ser elaborados 
aisladamente aunque sean utilizados dentro del programa una sola vez. 


En BASIC las subrutinas se unen por medio de GOSUB con lo que el programa está elaborado en forma de 
estructuras independientes o en bloques, es decir, está estructurado. 


El concepto de programación estructurada, expuesto aquí de una manera simplista, es mucho más complejo 
pero las cuatro ideas expuestas pueden ayudar a comprender la actitud de estructurar los programas y sirven como 
introducción para iniciarse en el fascinante mundo de la construcción de subrutinas. 


APLICACIONES SENCILLAS 


En principio consideremos las subrutinas como una caja negra, es decir, como algo que funciona sin conocer 
muy bien el mecanismo pero que nos sirve para desempeñar una función. Desde este punto de vista las subrutinas 
antes de poder funcionar, necesitan que sus variables tengan unos valores antes de que la instrucción GOSUB las 
ejecute. Las variables se llaman parámetros y los valores que toman, argumentos. La secuencia de instrucciones que 
se necesita para poner en marcha la subrutina se conoce con el nombre de secuencia de llamada. 


La secuencia de llamada asigna los argumentos a los parámetros de la subrutina y fija las condiciones de su 
utilización, que reciben el nombre de condiciones de entrada en contraposición a las condiciones de salida, que son 
aquellos márgenes fuera de los cuales la subrutina, aunque nos dé un resultado pueda ser falso. 


Estas nociones son más una guía que unas reglas estrictas y servirán para describir nuestras subrutinas. Tenien- 
do en cuenta este punto de vista pasaremos a puntualizar someramente los criterios que seguiremos en su descrip- 
ción. 


PARAMETROS. 


Los parámetros de una subrutina escrita en BASIC son las variables que se utilizan dentro de la misma y que no 
son calculadas por ella y, por tanto, tienen que ser suministradas con anterioridad. 


Estos parámetros son escogidos por el programador, y en consecuencia, ni son los únicos que se podrían haber 
escogido, ni tiene por qué ser necesariamente los mejores. El hecho importante con respecto a los parámetros es que 
el cambiarlos significa, en la mayoría de los casos, cambiar la subrutina. 


Es importante no confundir parámetros con argumentos ya que estos últimos siempre se pueden cambiar entre 
ciertos límites. Inmediatamente después de un PRINT AT en el Zx Spectrum tienen que ir dos números separados 
por una coma. Los valores que, en un caso particular, otorgamos a esos dos números son argumentos. Si nosotros 
utilizamos PRINT AT a, b, las variables a y b son parámetros cuyos argumentos son los valores que tomen a y b. 


ARGUMENTOS 


Los argumentos pueden variar entre ciertos límites fuera de los cuales la subrutina no funciona. También es 
importante puntualizar aquí que los límites que un programador dice que tienen sus argumentos muchas veces no 
son los límites reales, sino más bien los límites que el programador cree que tienen cuando elabora la subrutina. Una 
subrutina no es realmente útil hasta que no ha sido utilizada por gentes diversas y se conocen sus límites reales. 
Aparentemente, entonces, el fijar unos límites a unos argumentos es inútil. No es así, ya que estos límites teóricos son 
muy útiles para saber si es posible que una subrutina nos sirva en un caso concreto. Teóricamente es posible 
programar evitando el que un usuario asigne argumentos a unos parámetros que provoquen errores, sin embargo, 
esta actitud al programar tiende a producir subrutinas muy largas y poco eficientes. Como, por otra parte y por 
definición de subrutina, uno puede utilizar una secuencia de llamada particular para probar su utilidad en un caso 
concreto y para un margen de valores necesarios en un caso particular, los valores indicativos que se dan como 
límites son muy útiles. 


CONDICIONES DE ENTRADA Y DE SALIDA 


Como condiciones de entrada se entienden todas aquellas cosas que hay que hacer antes de ejecutar la subrutina 
para que funcione correctamente. Es obvio que una condición de entrada será el que no exista un GOTO anterior a 
ella que obligue al aparato a saltársela. Las condiciones de salida muchas veces están impuestas en los límites de los 
argumentos pero en otras subrutinas existen independientemente. Como ejemplo: Una subrutina que utilice deter- 
minadas posiciones de la memoria RAM para guardar el resultado de su ejecución no podrá funcionar, independien- 
temente de que sus condiciones de entrada sean correctas, si en estas posiciones de memoria hay otros datos que la 
máquina está variando constantemente. 
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SUBlm 


CAMBIA LOS ATRIBUTOS DE LA PANTALLA 


INTRODUCCION 
La subrutina en CODIGO MAQUINA está copiada en la cassette cinco veces de diferentes formas: 


1) SUBImb; La subrutina escrita en BASIC como una subrutina de BASIC que carga el CODIGO 
MAQUINA en las direcciones oportunas en ambos modelos 16k y 48k. Hemos inclui- 
do una frase delante que avise de que si no se le asignan argumentos a sus parámetros 
no funciona. 


2) SUBIme; programa en BASIC que ejecuta varias veces la subrutina SUBIm. Sirve como ejem- 
plo y tiene varias subrutinas que hacen los cálculos que se necesitan para tener los 
argumentos de forma que los entienda el CODIGO MAQUINA. 


3) SUBlmel; programa en BASIC que ejecuta varias veces el CODIGO MAQUINA que esta vez 
hay que cargarlo como bytes, ya que SUBImel no lo carga, para ello están las 2 su- 
brutinas en la cassette detrás de SUBImel. 


4) SUBImc48k; bytes del CODIGO MAQUINA de la subrutina para el ZX Spectrum 48k. cuando se 
ejecuta SUBI mel, el programa los carga automáticamente. Si se quieren cargar solos, 
primero hay que bajar la RAMTOP unos 50 bytes, escribiendo CLEAR 65300 y 
ENTER. Posteriormente, se cargan con LOAD “SUB1mc48k” CODE. Como se ha 
grabado con sus atributos se puede escribir RANDOMIZE USR 65350 y debe ejecu- 
tarse correctamente. 


5) SUBImcIl6k; Igual que la anterior pero para el ZX Spectrum de 16k. 
CLEAR 32550; ENTER 
LOAD “SUBImcl6k” CODE; ENTER 
RANDOMIZE URS 32557; ENTER 


SUBRUTINA SUBlmb 


CONDICIONES DE ENTRADA. 


Entendemos como condiciones de entrada las que tiene la subrutina escrita en CODIGO MAQUINA, ya que la 
secuencia de llamada programada en BASIC, está hecha para que se comprenda el funcionamiento de la subrutina 
en CODIGO MAQUINA. 
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PARAMETROS 
La subrutina necesita tres parámetros: 


1.2 colores. 
2.2 números de caracteres a cambiar. 
3.9 dirección de comienzo del cambio. 


COLORES 
Los colores están incluidos en un byte de la siguiente manera: 


decimal 128 64 32 16 8 4..2 
bit 7 6 9 4 3 AS 


acción fl br pa ti 


Los tres primeros bits 0, 1 y 2 corresponden al color de la tinta. Al ser los bits 0, 1 y 2; para poner una tinta con 
valor 2, el rojo, basta con sumar 2 al número obtenido con el color del papel, brillo y parpadeo (flash). El color del 
papel son los bits 3, 4 y 5, y por tanto, si flash y brillo los consideramos apagados, los siguientes números binarios 
expresarán los colores que se indican. 


16=16=00010000 tinta 0 y papel 2 
48=32+16=001 10000 tinta 0 y papel 6 
51=32+16+2+1=00110011 tinta 3 y papel 6 
56=32+16+8=00111000 tinta 0 y papel 7 


El bit 6 igual a 1 es el brillo encendido y el bit 7 igual a 1 es el parpadeo encendido. De esto se deduce que papel 
7, tinta 3, brillo no y parpadeo sí es: 


10111011 que en decimal es 255-64-4=187 
Decimal 


Color Número Tinta Papel Brillo Parpadeo 
A E 0 0 0 
16 
24 
32 
40 
48 
56 


Ejemplo: 


Tinta 0, papel 7, brillo si, parpadeo no = 0+56+64+0=120 
Tinta 2, papel 5, brillo no, parpadeo si = 2+40+0+128=170 
Tinta 3, papel 6, brillo no, parpadeo no = 3+48+0+0=51 
Tinta 2, papel 5, brillo no, parpadeo no = 2+40+0+0=42 


NUMERO DE CARACTERES A CAMBIAR. 


Este número se calcula a partir del área de atributos que está inmediatamente detrás de los “pixel” de la pantalla. 
La dirección inicial de la memoria RAM donde empiezan los bytes de la pantalla es la 4000 hexadecimal, 
(0x1+0x16+0x256+4x4096=16.384). La pantalla del Spectrum está organizada de manera un poco particular pero no 
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entraremos por ahora en este detalle porque los “bytes” de los atributos están seguidos, uno detrás de otro, a partir 
del último de los “pixel”. La pantalla puede representar 24x32 caracteres que son 768x8x8 “pixels”. Si un byte tiene 8 
“bits” los bytes necesarios para representar puntos en la pantalla son 768x8, es decir, 6144 bytes. Los atributos están 
detrás y, por tanto, empiezan en la dirección 16384+6144=22528. Esta dirección contiene los atributos del primer 
carácter de la pantalla y los demás caracteres están a continuación y por orden. Para comprobarlo podemos escribir 
PRINT AT 0, 0; “a” y ENTER. Si a continuación escribimos POKE 22528, 42 el papel del carácter se vuelve azul 
claro y la tinta roja. 


Para calcular el número de caracteres a cambiar basta contarlos y transformar ese número en sus dos bytes. El 
procedimiento se explica en la secuencia llamada escrita en BASIC. Este número debe ser cargado en (1X+0) y (IX+1) 
antes de ejecutar la subrutina. 


DIRECCION DE COMIENZO DEL CAMBIO. 


Como decíamos los atributos de los caracteres están a partir de la dirección 22528. Por tanto, la dirección de 
comienzo será: número de líneas que hay antes de esa posición por 32 más número de columnas, ya que, como hemos 
comentado, los bytes de atributos están uno detrás de otro en la memoria RAM. 


Este número debe ser cargado en (1X+3) y (1X+4) antes de ejecutar la subrutina. 


CONDICIONES DE ENTRADA. 


Describimos siempre que los números se deben cargar en (1X+?) y esto se debe a que para hacer la subrutina 
completamente independiente de su posición en la memoria y fácil de entender hemos utilizado el registro 1X. El 
registro IY no se puede utilizar en ZX porque lo utiliza el aparato. 


La subrutina contiene 33 bytes más 5 bytes, que pueden estar colocados en cualquier parte de la memoria, que 
contienen los datos. La subrutina sabe donde están esos bytes porque sus bytes, 3, 4, 5, 6, son Id IX, NN, es decir, 
carga en el registro IX el número que está en los 2 bytes siguientes. A partir de aquí, la subrutina toma de la dirección 
indicada por estos bytes el primer dato, de esa dirección más uno (ld reg, (1IX+d)) (carga = LOAD); reg=registro; 
( )=contenido de; IX registro IX; +=más; de=desplazamientos), el segundo y así, sucesivamente. 


Por tanto, para cambiar la subrutina de situación en la memoria lo único que hay que hacer es cambiar los bytes 
4 y 5, de la subrutina por los nuevos bytes, que indiquen donde están los datos. 


Por ejemplo; si queremos colocar la subrutina que hemos cargado en un Spectrum 16k en las direcciones 32557 
a 32590 a las direcciones 33000 a 33033, se puede hacer lo siguiente: 


CLEAR 32000, ENTER 
10 FOR s=32557 TO 32557+33: LET a=PEEK s: 
a POKE 33000+(s—32557),a: NEXT s 
RUN ENTER ; 


Una vez cargada la subrutina en las direcciones 33000 a 33033 tenemos que cambiar sus bytes 4 y 5, que son 
40,127 (32552) por los nuevos donde pongamos los datos, por ejemplo, 32256 (0,126). Por tanto, escribiremos 
POKE 33004,0 y ENTER; y POKE 33005,126 y ENTER. A partir de que aquí la subrutina tomará los datos por 
orden de la dirección 32256. Si cargamos los siguientes argumentos en las direcciones pertinentes: 


POKE 32256,1 
POKE 32257,2 
POKE 32258,184 
POKE 32259,0 
POKE 32260,88 ' 


y después ejecutamos la subrutina con RANDOMIZE USR 33000 veremos que funciona normalmente y que 
RANDOMIZE USR 32557 hace funcionar la antigua. 
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CONDICIONES DE LOS ARGUMENTOS DE LOS PARAMETROS. 


(1X+0) puede tomar cualquier valor entre 0 y 255. 

(1X+1) no puede ser cero ni mayor de 3. 

(1X+2) puede tomar cualquier valor entre 0 y 255. 

(1X+3) puede tomar cualquier valor entre 0 y 255, pero atención a que IX+1 no sea 3, ojo que si (1X+1) es 
igual a 3, (1X+3) debe ser 0. 

(1X+4) varia entre 88 y 90. 


DIRECCION DE COMIENZO DEL CAMBIO. 


Los argumentos de los bytes (1X,3) y (1X,4) no pueden sobrepasar los límites 22528 y (22528+768)=23290. Si se 
sobrepasan por abajo entraremos en el área de puntos de la pantalla y si es por arriba los errores pueden ser más 
graves. 


OTRAS CONDICIONES DE ENTRADA. 


Cuando se utilizan subrutinas en CODIGO MAQUINA es muy importante que estas subrutinas y sus paráme- 
tros estén guardados por encima del tope artificial de la RAM porque si están por debajo el programa BASIC, el 
“stack” del computador o las distintas áreas de memoria se la pueden comer al crecer. Dicho de otra manera, pueden 
grabar en estas posiciones de la memoria otros datos y nos encontraremos con la desagradable sorpresa de que al 
llamar a la subrutina el computador se bloquea, y aunque para desbloquearlo sólo hay que apagarlo y volver a 
encenderlo perdemos todo lo que esté guardado en RAM. 


EXPLICACION DEL PROGRAMA. 


En primer lugar hay que comentar que se cargan 50 bytes y la subrutina sólo tiene 33. Esto se hace porque 
hemos observado que cargando el número exacto de bytes, se provocan errores de carga con bastante frecuencia, por 
errores en el último byte cargado. 


La subrutina válida empieza en 32557 para el 16k y en 65325 para el 48k terminando en 32590 el 16 y en 65358 
para el 48k. 


Delante de la subrutina hay cinco bytes que contienen los atributos y que se cargan con la subrutina para que 
pueda funcionar inmediatamente después de cargarla. 


El programa cuyo listado os presentamos corresponde a la versión 48k y se diferencia del de la versión 16k en 
sus bytes 4 y 5 que contienen la dirección de comienzo de los atributos de la subrutina, es decir, 32552 para el 16k y 
65320 para el 48k. El listado contiene de izquierda a derecha: 1) el número que indica la dirección de la célula de 
memoria, 2) los nemotécnicos que se escriben a continuación. 


La subrutina en CODIGO MAQUINA la hemos programado pensando fundamentalmente en que fuese fácil de 
entender y no en su eficacia. 


Como puede verse en el listado, el programa comienza por guardar en el “stack” el valor del registro IX utilizan- 
do PUSH. A continuación hacemos que este registro contenga la dirección inicial de los argumentos de esta subru- 
tina utilizando la instrucción ld, IX, (dirección: 32552 para el 16k y 65320 para el 48k). 


El programa continúa cargando los pares de registros hl y be y el acumulador utilizando las instrucciones de 
desplazamiento del registro IX. 
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32552-65320-1X+0: Isbl registro b. 
32553-65321-1X+1: msbl registro c. 
32554-65322-1X+2: byte de colores. 
32555-65323-1X+3: Isbi registro 1. 
32556-65324-IX+4: msbi registro h. 


A continuación, el programa es muy sencillo y utiliza un doble lazo que lo que hace es cargar el contenido del 
acumulador en las posiciones indicadas por hl sirviéndose el par de registros BC como contador. 


Podemos observar que hl contiene la dirección de los atributos de la pantalla a partir de donde queremos 
comenzar a cambiar. El par BC, los bytes que queremos cambiar. El programa carga el contenido del acumulador, 
que tiene el byte de los colores, en la dirección indicada por el par hl, que tiene la primera dirección de los atributos 
de la pantalla que queremos cambiar. A continuación, suma l a hl para que apunte al siguiente byte de atributos de 
la pantalla, resta 1 a b que contiene el byte menos significativo del número de caracteres a cambiar y salta a cargar el 
contenido del acumulador en el siguiente byte de atributos de la pantalla, si b contiene un número superior a cero. Si 
b es cero, carga en b 255, resta uno a c, y e es mayor que cero vuelve a empezar el lazo anterior. El registro e por tanto 
debe contar una unidad más del número que le correspondería de transformar el número de bytes a cambiar en sus 
dos bytes, para que jnz, 246 funcione correctamente. Igualmente si el número de bytes a cambiar es superior a 255 
hay que aumentar l a este número ya que dec b son 256 valores y uno de ellos, el cero, hace que no se ejecute una vez 
ld (hl), a. Hemos preferido dejarlo así para invitar a pensar en estos problemas, que, por otra parte, son fáciles de 
solucionar. 


y resa las vari 


10 FRINT AT ¡"No hago n 
v > 
i ize SUBINM 


mn 


PUIG JOG A 
5820 


TN WI 


i ROS 


R_"a"-50) 
“a"=48 


00 00 0009 0001 - 00000 
FEOO-JO- - GUIP us 
(3) - G6cCOGSa M4 
TU 
"O m 
AXADDWMHuTIAMIZO*"IO 
Ao - HED 4 
A 


oP+4,256%3((coc/256)-1I 
0] 
0P+5S, (INT (coc«2561) 


mz 
EA 
mn 
o 
Ú 
a] 
zh 
m 


3430 RETURN 


SUBRUTINAS 


SUBlme 


El programa carga la subrutina en CODIGO MAQUINA a partir de la línea 8300 a 8430. La línea 10 borra la 
pantalla y ejecuta la subrutina que empieza en la línea 8300 y, por tanto, carga la subrutina CAMBIA ATRIBUTOS, 
en la posición pertinente. 


Una vez cargada la subrutina, la línea 40 ejecuta tres veces el mismo programa. La primera vez escribe en la 
pantalla SUBlme y cambia los atributos. La segunda escribe el párrafo largo contenido en aS$, línea 50, y a 
continuación, te permite escribir lo que quieras con el INPUT. Por fin termina el programa por medio del GOTO 
9999. 


La línea 50 borra la pantalla y asigna los a$ una larga frase. La línea 60 hace que x=0 e y=1, la 70 calcula la 
longitud de a$. La línea 90 escribe a$ en la posición x, y, la línea 100 va a la 8120 que es la subrutina que calcula los 
bytes correspondientes a la longitud de a$, líneas 8140-8150. La línea 8160 calcula cuántos caracteres hay desde la 
posición de origen de la pantalla, PRINT AR 0,0; hasta la posición donde queremos escribir, posición AT (y,x). Para 
ello, multiplica el número de líneas desde O por 32 y le suma el de columnas. Al número obtenido le suma la dirección 
del primer byte de atributos, 22528, y obtiene la dirección de los atributos del primer carácter que se quiere escribir 
en la pantalla; para a continuación, las 2 líneas siguientes, 8170 y 8180, calcular los dos bytes correspondientes a esta 
dirección. 


Las líneas 110 a 130 nos preguntan el color de la tinta, papel y pausa. La variable pausa es necesaria porque la 
subrutina es muy rápida y sin ella no se apreciarían los cambios de color. La línea 140 pone el brillo y parpadeo 
(flash) en 0, a continuación, la línea 150 ejecuta la subrutina construye “string”, que empieza en la línea 8000, esta 
subrutina construye una cadena de 8 caracteres (d$) que contiene los bits de color, tinta, papel, brillo y parpadeo, la 
subrutina utilizada construye “string” color, de la siguiente forma: primero asigna a la variable col, el valor de la tinta 
(línea 8040) y ejecuta la subrutina construye “string” color que nos devuelve un “string” (d$) que contiene el 
equivalente binario del valor decimal del papel. La línea 8070 suma c$ más el valor anterior d$ poniendo los bits del 
papel delante de los de la tinta, a continuación, las líneas 8080 y 8090 ponen los bits de brillo y parpadeo según 
tengan éstos el valor 0 ó 1. A pesar de que no se utilizan las dos variables br (brillo) y fl (flash-parpadeo), ya que en la 
línea 140 se les da valor 0 a ambas, las hemos puesto para que se puedan variar a gusto del usuario, basta con darles 
valor | cuando queremos encender el parpadeo o el brillo. 


La línea 8100 ejecuta la subrutina que empieza en la línea 8250 y que calcula el valor decimal del “string” color, 
que está en la variable d$. En realidad, esta subrutina es un conversor binario decimal, como la subrutina construye 
“string” color, lo es decimal binario. 


La línea 8020 asigna a la variable go, el valor 8000 y todas las veces en las que se llama a una subrutina dentro de 
la subrutina que empieza en la línea 8000 se utiliza esta variable, ver líneas 8040, 8060, 8100. El motivo es que si hace 
falta cambiar la subrutina de sitio dentro de un programa, “por ejemplo, a la línea 7000”, con variar la línea 8020, 
poniendo en sustitución LET GO=7000, ésta funcionará correctamente porque el resto de las instrucciones GOSUB 
están referidas a go. Para que funcione correctamente la separación entre líneas tiene que seguir manteniéndose en 
10. Los cambios de situación se hacen cómodamente con nuestra subrutina CZX1. 
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SUBlmel 


Este programa utiliza los programas SUBImcl6k y SUBImc48k que contienen los bytes del CODIGO MA- 
QUINA de la subrutina SUBlm para las dos versiones del ZX Spectrum. 


La línea de este programa sitúa la “RAM TOP” 50 bytes por debajo de la situación del primer carácter gráfico 
definible por el usuario utilizando la instrucción CLEAR USR “a” —S0. La línea 3, nos pregunta qué versión del ZX 
utilizamos y carga nuestra respuesta en la variable N$ y, a continuación convierte la variable n$ en la suma de las 
cadenas de caracteres “SUBlmc” más la respuesta que nosotros le hemos dado, que está en n$, y que tiene que ser 
16k ó 48k. 


A continuación, la línea 5, escribe en la posición de la pantalla (10,4) “Espero los bytes del c. m.'(CODIGO 
MAQUINA). La línea 6, carga estos bytes de las subrutinas SUBImcl6k o SUBImc48k con LOAD. 


La línea 10, permite calcular el origen de los 5 bytes de parámetros, 32552, en el 16k y 65320-65324 en el 48k, que 
tiene la subrutina, que es donde hay que cargar los argumentos. La manera de programarlo sirve para que el 
programa sea válido para las dos versiones. 


A partir de la línea 1000, hay tres ejemplos distintos de utilización de la subrutina SUBI m. En el primer ejemplo, 
la subrutina cambia los atributos de un cartel que se escribe, utilizando la línea 1040. La línea 1030, utiliza la 
instrucción POKE, para cargar los valores que va a utilizar la subrutina. A continuación, el lazo constituido por las 
líneas 1050 a 1090, varía el valor entre 0 y 255, que se cargan en la dirección pertinente, este valor va a ser el byte que 
contiene los colores de la tinta, papel, brillo y flastb-parpadeo. La línea 1070, ejecuta la subrutina en CODIGO 
MAQUINA y la línea 1080, hace una pausa de 10/50 de segundo, para poder apreciar los cambios en los colores, que 
la velocidad de la subrutina nos impediría apreciar. Por último, la línea 1100 borra la pantalla. 


El segundo ejemplo utiliza la subrutina para dejarnos ver cosas que están escritas en la pantalla con el mismo 
color de tinta y papel, con lo que son invisibles, la subrutina les cambia el color de la tinta y papel, y se ven. De esta 
manera, la línea 2030, escribe en la pantalla varias veces “SUBlme” y ZX Spectrum, con color blanco de tinta y 
papel, a continuación, dos instrucciones POKE, hacen que la longitud de variación de los atributos sea 1. La línea 
2050, empieza un lazo doble que varía el byte de los colores, flash y brillo, entre O y 255, y la dirección de comienzo 
del cambio entre 0 y 768, líneas 2070, 2080, 2090. La línea 2100, ejecuta la subrutina en CODIGO MAQUINA. 


El ejemplo tres, empieza por borrar la pantalla y las dos instrucciones POKE siguientes, pone una longitud de 
cambio de atributos de 1 a continuación, la línea 3040, se dimensiona una cadena de caracteres (32x22), y se le asigna 
a esta cadena la variable alfanumérica x$, que contiene el cartel SUBImel. A continuación, un lazo rellena la cadena 
de 704 caracteres con este cartel y la línea termina escribiendo en la pantalla los 704 caracteres de golpe, con los 
colores de tinta blanco y papel blanco. Este ejemplo continúa con otro lazo doble que empieza por variar los 
atributos de cada posición de la pantalla al valor 56, que es tinta 0, papel 7, con lo que nos deja ver el carácter escrito 
en esa posición de la pantalla que estaba oculto, porque se había escrito con tinta blanca y papel blanco, posterior- 
mente, se ejecuta la subrutina para, a continuación, calcular un número al azar entre O y 64+49, este número se va a 
utilizar como byte de colores que una instrucción POKE coloca en sitio oportuna para, a continuación, volver a 
ejecutarse la subrutina de tal manera que, se varíe el color del atributo. Por este mecanismo, esta subrutina parece 
escribir en la pantalla primero un carácter en negro que no nos da tiempo a leer; y después, los colores dejándole con 
colores al azar de tinta y papel, con “flash” encendido porque el byte de colores parte del número 64, que es brillo 
encendido al que le suma un valor al azar entre 0 y 49. 
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SUBRUTINAS EN BASIC 


La cassete contiene tres subrutinas en BASIC, SUBI, SUB2 y SUB3. Si se cargan en el computador y no se 
programa antes de ellas una secuencia de llamada, no pueden funcionar porque les faltan los argumentos de los 
parámetros. 


Acompañando a estas tres subrutinas hay tres programas SUBla, SUB2a, y SUB3a, que constituyen un ejemplo 
de cómo se utiliza cada una de las subrutinas. 


Aconsejamos cargar primero los tres programas estudiar después su funcionamiento y al final, cargar cada 
subrutina e intentar programarle una secuencia de llamada parecida a la primera que contiene cada programa 
ejemplo. 


Para conocer la utilidad que puedan tener para el usuario, conviene jugar con ellos. Es del mayor interés para 
nosotros que nos escribáis vuestras impresiones sobre estas subrutinas, su explicación y todo lo que se os pueda 
ocurrir al respecto. 


Esperamos que os sean útiles. Para poder utilizar más de una en un mismo programa, os incluimos CZX1 que 
sirve para renumerar la subrutina que está en RAM, para poder cargar con otra MERGE. 


SUB 1 DIBUJA CAJA 


Esta subrutina dibuja una caja en cualquier posición en la pantalla y con dimensiones variables. 
La subrutina fue programada para dibujar una cassette. 
PARAMETROS. 


línea de la pantalla en la que se empieza el dibujo. Equivalente a su posición de origen en el eje y. 
columna de la pantalla en la que se empieza el dibujo. Es equivalente a su posición de origen en el eje x. 
tamaño horizontal de la caja que se dibuja. 
tamaño vertical de la caja que se dibuja. 
color del papel. En realidad es el color del marco de la caja. 

: color del papel. En realidad es el color del fondo de dentro de la caja. 
opción brillo. Sólo influye en el color del fondo de la caja. 
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ARGUMENTOS. 


lin: puede oscilar entre 0 y 21. 
col: puede oscilar entre 0 y 31. 
th: puede oscilar entre 0 y 31. 
tv: puede oscilar entre 0 y 21. 
pa: puede oscilar entre 0 y 9. 
pap: puede oscilar entre 0 y 9. 
br: tiene que ser 0 ó 1. 


CONDICIONES DE ENTRADA Y SALIDA. 


1) Los argumentos de los parámetros lin, col, th y tv tienen que ser números enteros. Si no lo son, no se produce 
error pero no coincide el borde del marco con el propio marco. 
2) Las dimensiones de th y tv deben depender de col y lin respectivamente, de tal manera que: 


th+col< 31 
tv+lin< 21 


3) Si pa = pap se dibuja un cuadrilátero relleno. 

4) Sitvothes 06 1 se dibuja un cuadrilátero relleno. 

S) lin = 0 y col = 0 está en el margen superior izquierdo de la pantalla. 

6) Si th es mayor de 12 la perspectiva es de 16 puntos, si es menor de 12, la perspectiva será de 8 puntos. 


PROGRAMA. 


La subrutina consta de tres subrutinas, la primera dibuja una caja con marco utilizando DRAW PAPER. Para 
ello, previamente, las líneas 8010 y 8050 calculan las variables: “pixels” de la línea (pli), “pixels” de la columna (pco), 
tamaño de la línea vertical en “pixels” (tlv) y tamaño de la línea horizontal en “pixels” (tlh). 


La subrutina, DIBUJA PERSPECTIVA CAJA, funciona sumando al punto inicial: pco, pli; el valor de la 
variable s, que se incrementa de uno en uno, de esta manera se crea al efecto de perspectiva. 


La subrutina DIBUJA FONDO CAJA crea una cadena de caracteres de longitud, th—l, que contiene blancos, 
en la variable Z$. Esta variable se escribe, con el color pap y el brillo de br, entre los límites, lim+1 a lim+tv—1, para 
dibujar el fondo de la caja. 


DRA PAPER pa;-tlh,0 
REM dib. E Y 


REM 
FOR 5s=1 TO 3+5% 
PLOT s+pco,s+pl 
DRA tlh,0: DRA 
NEXT 5 

fon c 
LET Zb='"": FOR 521 TO th-1: 
a ": NEXT Ss 
PR 


(th>12) 
1 
Y 0,-tlv 


FOR salin+1 TO lin+tv-1 
INT AT 5s,col+1; PAPER pap 
rl brizh 


TOS 
RETURN 
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Este programa utiliza en varias ocasiones la subrutina 1. En la primera secuencia de llamada, (ver introducción a 
subrutina), líneas 30 a 100, en cada línea va un LET, que asigna a una de las variables necesarias (parámetros) un 
valor (argumento). De esta manera se asignan valores a lin (línea), col (columna), pa (papel, ver SUBI), pap (papel, 
ver SUBI), br (brillo), tv (tamaño vertical), th (tamaño horizontal). 


La segunda secuencia de llamada líneas 110 a 140 solamente cambia los valores de th, pa y pap, de tal manera 
que disminuye el tamaño horizontal de la caja, cambia el color del marco a azul (5) y el color del fondo de la caja al 
rojo (2). El resto de las variables parámetro siguen teniendo su valor inicial ya que no las hemos cambiado. 


La secuencia de llamada número tres línea 160, cambia los valores de th, tamaño horizontal, col, columna donde 
empieza, y pap color del fondo de la caja. Hasta la secuencia de llamada 5 el programa funciona de la misma manera, 
es decir, se cambian algunas variables y se llama a la subrutina. Para averiguar qué trozo dibuja cada secuencia de 
llamada se puede intercalar un STOP entre cada una por ejemplo: 


102 
132 
162 
192 
242 
272 
302 


sTOP 
sTOP 
STOP 
sTOP 
sTOP 
STOP 
STOP 


Si ahora ejecutamos el programa comprobaremos que parte del dibujo final es realizado por cada secuencia de 
llamada. Una vez se para el programa directo: STOP at line 102, se aprieta CONTINUE y ENTER y la ejecución 


continúa hasta el siguiente STOP. 


A partir de la quinta secuencia de llamada el programa, ver línea 230, borra la pantalla y empieza otro dibujo. 
La secuencia 5, 6 y 7 dibujará cada una, una caja en posiciones distintas de la pantalla con colores distintos. La 
secuencia 8 dibuja la cuarta caja y pone las letras, líneas 340 a 370. 
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SUB2 DIBUJA PUERTA 


Esta subrutina dibuja una puerta que se abre cada vez más deprisa. El tamaño de la puerta es variable y el dibujo 
que queda, semejante a un águila, es un accidente provocado por el mecanismo de dibujo. La subrutina fue 
programada para dibujar una puerta. 


PARAMETROS. 


col: columna de la pantalla en la que se empieza el dibujo. Es la posición de origen del dibujo en eje x. 
lin: línea de la pantalla en la que se empieza el dibujo. Es la posición de origen del dibujo en el eje y. 
ti: color de la tinta. En realidad color del fondo una vez abierta la puerta. 

pa: color del papel. En realidad color de la puerta. 

tx: tamaño horizontal de la puerta. 

ty: tamaño vertical de la puerta. 


ARGUMENTOS. 


de 0 a 21. 
de 0 a 31. 
de0a 9. 
de 0 a 31. 
de 0a2l. 


CONDICIONES DE ENTRADA. 


1) Si tx mayor que ty, al abrirse se traspasa el marco por la parte superior. 
2) Si col=0, se borra el marco izquierdo. 
3) El origen es el límite inferior izquierdo de la pantalla. 


PROGRAMA. 


La subrutina consta de otras tres: la primera, calcula dimensiones, calcula x0 que son los “pixels” de la variable 
col, y0 que son los “pixels” de lin, xl los de tx e yl los de ty. A continuación, construye la variable alfanumérica Z$ 
con un número de blancos igual a tx, tamaño horizontal de la puerta. 


SUBRUTINAS 


Posteriormente comienza, línea 8300, la subrutina DIBUJA PUERTA, que escribe Z$ desde la posición 22 
menos línea menos tamaño vertical, (ty), a la posición 21 menos línea. De esta manera línea=0 y columna=0 es la 
posición AT 21,0. La variable alfanumérica Z$ se escribe con el color del papel que contiene la variable pa y por 
tanto, éste será el color de la puerta. 


A continuación, la subrutina, dibuja marco puerta, dibuja el marco utilizando PLOT y DRAW y los números 
de “pixels” de x0, x1, y0 e yl. 


Por último, la subrutina, abre puerta, dibuja desde la posición (x0, y0), dos líneas, con color de tinta ti, que será 
por tanto, el color del fondo que se ve al abrirse la puerta, una de ellas inclinada progresivamente cuya longitud 
disminuye en una unidad a cada ejecución del lazo 8520 a 8590, y se va haciendo cada vez más inclinada con respecto 
a la horizontal al tener a 5 como valor de y, y otra que partiendo del punto en que termina la anterior disminuye cada 
vez en una unidad, y es totalmente vertical, ya que su valor de x es cero. 
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SUB2a DIBUJA UNA PUERTA QUE SE ABRE. 


El programa dibuja una puerta en la pantalla utilizando la subrutina DIBUJA PUERTA. 


Las líneas 30 a 80 asignan los argumentos a los parámetros. La línea 90 es un poco particular ya que resta l a ty, 
tamaño vertical de la puerta, y la hace 8 “pixels” más pequeña; resta a pa 1 y suma a ti 1 para cambiar los colores, y 
suma 5 a col, para separar las puertas. La última instrucción envía la ejecución a la línea 90 si col es menor de 28, ya 

. que si col es 28 o mayor, el interior del paréntesis vale cero y 10*0=0 con lo que el GOTO va a la línea 100. 


La secuencia de llamada número 2 tiene una línea 180 semejante a la 160 de la secuencia de llamada número 1. 
Tiene otra instrucción GOTO condicional que obligará a continuar la ejecución en 200 si col es menor de 4, porque 
—20 * (col >4) se hace cero si col es menor de 4 y —20 si col es mayor de 4, porque el contenido del paréntesis valdrá 
l. 


La secuencia de llamada número 3 empieza por hacer una pausa para permitir ver el dibujo que realiza. A 
continuación, la línea 200 borra la pantalla. La línea 230 asigna las variables pertinentes y ejecuta la subrutina, las 
líneas 240 y 320 borran el hueco que queda cuando se abre una puerta y para ello utilizan la cadena de caracteres 
contenida en la variable Z$ para escribirla en las posiciones pertinentes. Las líneas 250 a 300 escriben en la pantalla 6 
carteles, la línea 310 hace otra pausa y la 320 borra los carteles. 


Las secuencias de llamada 4, 5 y 6 dibujan puertas concéntricas y antes de dibujar la siguiente puerta borran el 
fondo de la anterior, líneas 360 y 380, de la misma manera que se había hecho en las líneas 240 y 320. 
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se=g2-lin-t 


PRINT AT 5s,coL; 
NEXT s 


-1,Y40: DRAW 0,yl: 
DRAÚ D,-yl 
E r 


5=0 TO x1 
x0 


BEEP 0.01,-27 


p=38- 25 


PAUSE 1+px* (p>0) 
NEXT s 
RETURN 


Esta es una subrutina muy general, que dibuja líneas desde el punto de la pantalla a unos bordes imaginarios. El 
intervalo entre las líneas es variable y también el color de las líneas y del fondo. 


PARAMETROS. 


distancia del eje x a la que empieza el dibujo, en puntos. 
distancia del eje y a la que empieza el dibujo, en puntos. 
longitud horizontal del dibujo en puntos. 
longitud vertical del dibujo en puntos. 
posición del origen del dibujo con respecto a su longitud px. 
posición del origen del dibujo con respecto a su longitud py. 
sl a s4: distancia entre las líneas. 
ti: color de la tinta. En realidad, color de las líneas. 
pa: color del papel. En realidad, color del fondo. 


ARGUMENTOS. 


de 0 a 255. 
de0a 175. 
de 0 a 255. 
de0a175. 
de 0 a 255. 
de0a175. 
si y 4: de0a? 
ti: de0a 9. 
pa: de0a 9. 


CONDICIONES DE ENTRADA. 


dx+px debe ser menor de 255. 
dy+py debe ser menor de 175. 


sl y s4 tienen que ser mayor que cero y pueden tener valores decimales. 


PROGRAMA. 


Consiste en un lazo, que desde una posición en la pantalla dibuja rayas a los bordes. 
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El programa tiene 4 secuencias de llamada, que dibujan en la pantalla, cuatro imágenes diferentes: la primera 
secuencia de llamda líneas 10 a 150, asigna los valores a las variables que necesita la subrutina. La línea 150, borra la 
pantalla y ejecuta la subrutina. La segunda secuencia de llamda, cambia pocas variables, pero tiene de interesante el 
darle valores decimales a sl y s3, líneas 200 y 220. Por tanto, la distancia entre líneas puede ser valores decimales. 


La secuencia de llamada 3, empieza por la línea 270, hace una pausa y en la línea 280, borra la pantalla, el dibujo 
que hace es completamente distinto al anterior. La secuencia de llamada 4, es igual que la anterior salvo en su línea 
440, donde automáticamente hace una pausa, borra la pantalla disminuye en 1 la variable ti (color de la línea), pone 
el color del borde de la pantalla con el color de las líneas, disminuye en 1 el espacio en el primer cuadrante, en 1,5 el 
siguiente, en 0,9 en el tercero y en 0,2 en el cuarto, de tal manera que cambia completamente el dibujo cuando ejecuta 
esta línea. A continuación, la línea 450, ejecuta la subrutina y la 460, nos envía a la 440, si sl es mayor de 2, si no el 
programa termina a la línea 9999. 
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SUBRUTINAS 


Como hemos comentado varias veces tenemos la intención de incluir subrutinas de los programas para que 
vosotros podáis utilizarlas en los vuestros. Estas subrutinas os podrán ahorrar mucho tiempo a la hora de programar, 
al menos, con esa intención lo hacemos. 


El programa CZX1 es capaz de renumerar otro programa previamente escrito. No solamente renumera otro 
programa sino que es capaz de renumerar trozos de un programa. Está hecho para renumerar las subrutinas que 
pondremos en sucesivas cassettes que van a empezar todas en la línea 8000 y por lo tanto es necesario, para utilizar 
más de una, cambiar los números de línea del programa que tenemos en la memoria del aparato para dejar libre las 
líneas 8000 a 9000. El programa no cambia los números de línea de los GO TO, GO SUB, RESTORES, LIST, 
RUN... los números de líneas utilizados son correlativos y solamente cuatro para que sea fácil de borrar después de 
cambiar los números de líneas necesaria ya que el ZX SPECTRUM no tiene, por desgracia, la opción DELETE m,n 
que borraría los números de línea del m al n. 


El programa se carga con MERGE para no borrar el programa que está en la memoria y para ponerlo en 
marcha se escribe GO TO 9000 ó RUN 9000 y ENTER. Los nombres de las variables son raros y largos para que 
haya pocas posibilidades de que el programa en la memoria tenga estos nombres y puedan existir problemas. 


Al ser ejecutado pide cuatro datos que son los siguientes: 


1) Línea inicial a mover: es el número de la primera línea a la que queremos cambiar su número de línea. 

2) Línea inicial a no mover: es el número de la primera línea a partir de la que no queremos cambiar la 
numeración. 

3) Línea inicial NUEVA: es el número de línea nuevo que queremos que tenga la primera línea a cambiar. 

4) Separación entre líneas: es el número de líneas entre una determinada y la siguiente. 


Para cambiar la numeración de un programa con CZX1 aconsejamos que se empiece el cambio por el final del 
programa para ir dejando espacio para las líneas intercaladas. Si al utilizarlo, el último número de línea nuevo es 
superior al sucesivo viejo no preocuparse mucho y volver a renumerar ese fragmento con una separación inferior, 
renumerar el final para dejar espacio, e intentar renumerar de nuevo ese trozo. 


PROGRAMA. 


Los 4 INPUT al estar escritos con una sola instrucción INPUT permanecen en la pantalla mientras no se mete el 
último dato, lo cual en este caso es útil. La variable dirin, dirección inicial del programa BASIC en la memoria, ver 
las variables del sistema en el capítulo 25 del manual en su página 174 la variable PROG. 


La variable nulin, número de línea, contiene el número de línea que, como se explica en el capítulo 24, página 
166 del manual, son los dos primeros bytes de cada línea. La variable longit, longitud, contiene la longitud de la línea 
y la obtiene de los bytes 3 y 4 de cada línea (ver la pág. 166 del manual). 


SUBRUTINAS 


El programa busca número de línea a número de línea hasta encontrar el primero que queremos cambiar, una 
vez lo encuentra, transforma el primer número de línea nuevo en sus dos bytes y cambia a esa línea su número viejo 
por el nuevo. Después le suma a la variable nume, que contiene el número de la línea nuevo, la separación entre 
líneas que está en la variable separ. Posteriormente le suma a dirin la longitud de la línea para que dirin contenga el 
comienzo de la línea siguiente y poder continuar el proceso de cambio de números hasta que encuentra el número de 
línea que no queremos cambiar y se pare, el programa, por tanto, está dirigido por la línea 9003. 


A 


PROGRAMAS DIDACTICOS COMENTADOS 
COLECCIONABLES PARA ZX SPECTRUM 


FASCICULO 

¿ 4 

Metedatos 

SUBmonte 

SUB 2m 

SUB 2me1 

SUB 2me2 

SUB2m48k 


SUB2m16k 
Ejemp.dat 


E de 7 


¡¡ATENCIO Ni!!! 


Por un defecto en la grabación de las 
cintas las subrutina en codigo 
máquina SUB2me48k tiene mal 
grabados sus últimos bytes. 

Para hacer funcionar SUB2me2, en 
ambos modelos 16k y 48k, cambiar 
en la línea 9930, de dicho programa, 
SUB2m48k por SUB2m1 6k y pulsar 
RUN y ENTER 


Programa 
Programa 


ARALAR RA RRA ERRE RARA 


Contadora 209 
HAHAHA ERARA RARA RRA AAA EA 


Contadora 249 
RRAARERARARA RARA RRA RARA 


HARAOARERARRA RARA RARA RARA AAA 
Contadorz 343 


Nombre: 
Nombre: 
Contador= 294 
Nombre: 
Nombre: 


reviamente 


Programa 
NUMmeros 
Programa 
borradas previamente 
Programa 


826 bytes 
B2m 
343578930 


3uB2 
1234 


0 
Me 
fps: 

O 
Y 

mn 

3 

al 
E 

0 
"0 
0 

e. 
"0 
- 


ARALAR RARERR RARA RARA AA 


Contadorz S2 
REAHAHERRARRANA RARA ARA 


Contadora 103 
ERMUA RARA RARA RARA AAA 


HEMANARARERORERNRAERARA ARA RENA AR 
Contadora 152 


Contadora 5 
Nombre: 
Nombre: 


Nombre: 
Nombre: 


APLICACIONES SENCILLAS 


El programa metedatos está diseñado para crear archivos de datos para la utilización del programa 
barras que se incluirá en la siguiente cassette. 

Cuando pensamos en realizar la subrutina DIBUJA CUADRILATEROS para representar histogramas 
de barras y decidimos crear un programa corto para ilustrar uno de los motivos de la creación de la 
subrutina, empezamos a elaborar un programa completo que sirviese tanto para introducir los datos como 
para representarlos. Pronto el programa había crecido demasiado para poder ser cargado en el ZX Spectrum 
de 16K. Por este motivo y porque la idea directriz de nuestra serie es más ayudaros a concebir vuestros 
programas que hacerlos muy elaborados, lo hemos dividido en dos partes: la primera, metedatos, sirve para 
crear los archivos de datos y la segunda, barras, representa histogramas de barras con estos datos. 

Aunque parezca mentira los programas de introducción de datos son los más difíciles de elaborar porque 
hay que tratar de prever todas las variables que un ser humano, que se pone delante de la máquina para 
tratar de obtener unos resultados, puede necesitar, y el ser humano es, obviamente, mucho más difícil de 
prever que la máquina. 


DESCRIPCION DEL PROGRAMA 


Este programa tiene una entrada de datos que permite la introducción de datos y opciones. Como dato el 
programa entenderá todo número que sea introducido sin una opción delante que será añadido al final de la 
lista de datos. Cuando en la pantalla aparece el cartel dato/opción el aparato está dispuesto para recibir 
tanto datos, cualquier número, como opciones, los nombres de las mismas que pueden ser resumidos a las 
dos primeras letras. Detrás de los nombres de las opciones se puede incluir. un número que tendrá que ver 
con el número de dato al que queramos hacer algo. 

De esta manera no hay que pensar mucho en el programa. Cuando nos equivocamos y sólo introduci- 
mos un carácter no numérico nos escribe las opciones de tal manera que aparentemente es muy difícil salirse 
del programa inadvertidamente y perder los datos. 

Las opciones, como comentábamos más arriba, solo necesitan los dos primeros caracteres para que 
puedan ser entendidas por el programa pero se pueden escribir todos, ejemplo: escribe lista y pulsa ENTER 
o escirbe li y pulsa ENTER, cualquier variación entre li y lista, es admisible. Esta opción, lista, es una de 
las que admite que se le incluya al final un número de dato y el listado empezará en ese número. La pantalla 
admite 40 datos, cuando hay más de 40 datos en la memoria el listado representa automáticamente los 
últimos 40 y para que empieze en otro dato hay que utilizar la opción lista con un número detrás. 

Las opciones borra, incluye y modifica datos también pueden utilizar un número detrás del nombre de la 
opción, correspondiente al dato. 


RESUMEN DE LAS OPCIONES 


carga: Del cassette o de un ““microdrive” carga un archivo de datos, con los datos en la variable d( ), 
que hayan sido previamente grabados. 


lista: Lista los datos que hay en RAM, como se dimensiona d (100) se pueden listar 100 datos los 
que no contengan un dato suministrado por nosotros tendrán cero. Admite la opción de un 
número detrás de lista que sirve para que el listado comience en ese dato. 


ilista: Como la opción lista pero lista en la impresora. 
fin: Termina el programa. 


APLICACIONES SENCILLAS 


guarda: guarda los datos como un archivo DATA en d ( ). 


modifica: Modifica cualquier dato de la lista. Admite el número del dato detrás de la opción. De esta 
manera, mol6, modificará el dato 16 de la lista escribiéndonos el valor del dato 16 y 
preguntándonos su nuevo valor. 


incluye: Incluye un dato en cualquier posición de la lista. Admite el número del dato detrás de la opción. 
De esta manera in16, incluye un nuevo valor 16 pregúntandonos qué valor tiene e incluyendo 
el dato número 16 corre todos los valores de la lista. 


borra: Borra un dato en cualquier posición de la lista. Admite el número del dato detrás de la opción. 
De esta menera bol16, borra el dato 16 y corre toda la lista un valor. 


opción: Permite escribir la lista de opciones. 


SUBRUTINAS 


1.— SUB PRINCIPAL 
2.— ESCRIBE OPCIONES 
3.— ENTRADA 
4.— COMPRUEBA QUE ES NUMERO 
5.— METE EL NUMERO 
6.— VIGILA OPCIONES 
7.— MODIFICA DATOS 
8.— TRAE 
9.— FIN 
10.— GUARDA 
11.— INCLUYE DATO 
12.— BORRA DATO 
13.— LISTA 
14.— LISTA IMPRESORA 
15.— OTRAS OPCIONES 


1.— SUB PRINCIPAL 

Dirige el programa, comienza en la línea 30 asignando a la variable contador el valor uno. A 
continuación la línea 40 fija una variable con índice en 100 valores numéricos, d (100). La subrutina 
continua ejecutando las subrutinas que componen el programa. 


2.— ESCRIBE OPCIONES 
Esta subrutina, líneas 100 a 230 lo que hace es escribir las opciones que tiene el programa. 


3.— ENTRADA 


Esta subrutina tras escribir en la pantalla, en la posición 21,0 el cartel de dato/opción permite la 
introducción de un dato o una opción en un INPUT LINE df, línea 450. En esta línea y en la siguiente se 
vigila que no se cometan errores ya que si pulsa ENTER se vuelve a la misma línea, si el carácter es uno de 
los necesarios para escribir números, pero está como primer carácter, se ejecuta la subrutina OTRAS 
OPCIONES. 


4.— COMPRUEBA QUE ES NUMERO 


Como los datos se introducen en una variable alfanumérica d$ es necesaria esta subrutina para 
comprobar si el valor que tiene esa variable es un dato o es una opción, la subrutina lo comprueba mediante 
el código de cada uno de los caracteres que contiene la variable alfanumérica d$. Si este código no es un 


APLICACIONES SENCILLAS 


espacio, un punto, una E, una e, un — ó está entre los códigos ASCII 48 que es el número cero y el 57 que es 
el número nueve, entonces la variable op se hace =1 con lo que quiere decir que el contenido de d$ no 
puede ser transformado en un número y por tanto, debe ser una opción. Si se incluyen entre los caracteres 
que contienen los números, la E, la e, el punto y el signo —, es debido a que para escribir números en forma 
exponencial se utilizan estos caracteres (2.33e-2=0.0233). 


5.— METE EL NUMERO 


Esta subrutina comienza por asegurarse de que el contador de datos con no contenga más de 100 
números, línea 620, para a continuación, línea 630, asignar a d(con) el valor numérico de d$ y sumar una 
unidad a con, línea 640. Después asigna a de el valor O, línea 650, y va a la subrutina LISTA que si de es 
igual a cero lista los últimos 30 datos. 


6.— VIGILA OPCIONES 


La subrutina VIGILA OPCIONES comienza por quitarle a la variable d$ todos los espacios que tenga 
para ello, línea 1020, desde 1 hasta la longitud que tenga d$, suprime todos los espacios que encuentra, para 
suprimirlos empieza por crear una variable nc y asignarle el valor 1, después el lazo comienza por asignarle 
a d$(nc) el valor de d$(s) y suma una unidad a la variable nc sólo si el carácter d$(s) es distinto de un 
espacio. El lazo termina por dar a d$ el valor de d$(1 TO nc—1) y de esta manera elimina los caracteres 
repetidos que quedan al final si ha encontrado espacios. 

La siguiente línea, línea 1030 consigue obtener el número que puede existir detrás de las opciones. Para 
ello comienza por el último carácter de d$ y vigila si los códigos de los caracteres de esta variable son 
números si lo son los asigna secuencialmente a la variable f$ en el mismo orden. Es interesante considerar 
que f$=d$ (s) +f$ funciona poniendo en f$ los caracteres delante del valor de f$, y si funciona es porque a f$ 
no se le asigna su nuevo valor hasta que se haya calculado la expresión de detrás del signo igual. 

La siguiente línea, 1060, sirve para que la subrutina termine si los caracteres introducidos no son parte 
de ninguna de las opciones previstas. Para ello, lo único que hace es vigilar que los dos primeros caracteres 
de d$ no correspondan a ninguna opción. De la línea siguiente 1070 a la 1150, la subrutina comprueba cada 
una de las opciones y va al sitio oportuno del programa para ejecutarlas. La subrutina termina en la 
siguiente línea. 


7.— MODIFICA DATOS 


Esta subrutina, que comienza en la línea 1220, si de es igual a cero, en cuyo caso no hemos introducido 
un número detrás de la opción, pregunta el número del dato a modificar y vigila que sea mayor de cero y 
menor de 100. 

A continuación escribe el valor del dato antiguo, línea 1230, y lo modifica, línea 1240. Pone como 
E de de el número del dato modificado, lista a partir de este dato y va a la subrutina LISTA, línea 1250. 
1250. 


8.— TRAE 


Esta subrutina permite cargar archivos previamente escritos por el programa. Estos archivos de 100 
datos estan en la variable d( ). Para cargar los datos del cassette o microdrive, lineas 2040 y 2050, asume 
la opción a partir de los dos primeros caracteres. Si se carga del microdive pregunta el número y si es de la 
cassette los carga directamente. En ambos casos añade al nombre. dat para que sepamos que es un archivo 
de datos para este programa. 


9.— FIN 


Esta subrutina, línea 2400, nos envía a la línea 9999 la última línea del BASIC del Spectrum. 


APLICACIONES SENCILLAS 


10.— GUARDA 


Esta subrutina guarda los datos en un archivo DATA que contiene 100 números en d(' ), si hay menos 
de 100, antes de guardarlos pone ceros en todos los datos desde el último que hemos metido hasta el 100, 
lineas 2570 y 2610. 


11.— INCLUYE DATO 


Se empieza por vigilar que haya un valor en la variable de que contenga un número de dato, es decir, si 
hemos puesto un número detrás de la opción. Si no lo hemos puesto se pregunta el número y en la línea 
siguiente comienza por restarle una unidad a de para hacer el hueco para el dato a incluir, y a continuación, 
pregunta el valor del nuevo dato, línea 2730, y se desplazan los datos a partir del último en una unidad hasta 
de+2, es decir el siguiente al número donde queremos incluir un valor, línea 2750. Posteriormente, se 
comprueba que el valor que va a ser el valor nuevo de esta posición de la tabla y que está introducido en d$, 
es un número, línea 2760, y si lo es, este número se adjudica a dicha posición de la tabla. Se suma una 
unidad a la variable contador y se lista la tabla. 


12.— BORRA DATO 


La subrutina comienza de la misma manera que la anterior, es decir vigilando que exista el número de 
dato a borrar, línea 2820. Sigue, línea 2830, corriendo la tabla un lugar hacia el primer dato con un lazo que 
termina asignando al último dato de la tabla el valor cero. Si no se hace esto, el último dato estaría repetido. 
Sigue disminuyendo el número de datos, de la variable con, en uno, para terminar con un condicional, línea 
2850, que obliga a que se liste a partir de los 10 números anteriores al borrado si el borrado es superior a 10 
y a partir del anterior si es inferior a 10 pero superior a uno. 


13.— LISTA 


Esta subrutina lista la tabla en todas las ocasiones, menos cuando hay que listar los datos en la 
impresora. Comienza por borrar la pantalla y escribir en la posición 0,12 el cartel DATOS, línea 3020, en 
la posición 0,0 el valor de d$, que es lo que se introduce en la pregunta dato/opción y en la posición 0, 29 el 
número de datos introducidos, es decir la variable con. A continuación tres condicionales, líneas 3030, 
3040 y 3050, evitan que de sea cero, que de sea mayor de 71 y que de sea menor de cero. Este último 
merece ser comentado, si el número de datos en la tabla es cero entonces el condicional de la línea 3030 
obliga a de a tomar un valor negativo que provocaría un error si no existe esta línea. 

La subrutina escribe las dos columnas de datos, líneas 3060 a 3110, utilizando dos lazos, el primero 
escribe los primeros 15 valores y el segundo los otros 15. Son lazos interesantes porque permiten escribir 
dos columnas de números consecutivos que de otra manera estarían salteados entre las dos columnas. Os 
aconsejamos que los estudiéis con detenimiento ya que son útiles para otros muchos programas. Las 
variables que contienen son: s, de, contador, y d( ) que es el dato. La expresión 4—(LEN STR$ (de+s)) 
sirve para poner en columnas los números de los datos. El resto de los lazos es obvio. 


14.— LISTA IMPRESORA 


_ La subrutina simplemente lista con LPRINT, línea 3260, los datos del archivo. Antes de listar los datos 
deja una línea para que se les pueda poner un título, línea 3240 


15.— OTRAS OPCIONES 


Escribe en la pantalla los carteles de las líneas 3430 a 3470 hace una pausa de cero, es decir que.no 
termina hasta que se aprieta una tecla; limpia la pantalla y termina. 
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SUBRUTINAS 


SUBmonte: Como se carga la subrutina. 


Los poseedores del ZX Spectrum 48K pueden transformar el programa Monte en el nuevo que contenga 
la subrutina funcionante, para ello lo único que tienen que hacer es cargar el programa monte con LOAD y 
a continuación la subrutina MONTE con MERGE. De esta manera la subrutina modifica el programa para 
que funcione al darle un valor de monte superior en dos unidades al número de montes que hay en juego. 


Los que tienen un Spectrum 16K no pueden hacerlo porque el programa entero ocupa más memoria de 
la que tiene el aparato. Su solución más sencilla es borrar la subrutina HISTORIA y después la línea 130 y 
cargar la subrutina MONTE de la misma manera que para el 48K. 


SUBmonte: cómo se le gana al Spectrum. 


Como os hemos prometido trataremos de explicaros detenidamente como se le gana al Spectrum 
jugando al Monte. El profesor Bouton de la Universidad de Harvard descubrió que existe un modo de que el 
primer jugador que saca objetos gane siempre. 

Este modo consiste en traducir al sistema binario de numeración el número de objetos que hay en cada 
monte. La representación binaria de estos números se pone en columnas y se construye una lista que 
contenga la paridad de las columnas que no es otra cosa que averiguar si la suma de las cifras de cada 
columna es par o impar. Si la suma es par para todas las columnas el jugador o la máquina ha hecho el 
movimiento más conveniente. 

Por tanto para ganarle a la máquina hay que dejar todas las columnas pares en todas las jugadas y 
empezar jugando primero. Si nos equivocamos una sola vez el Spectrum hará el movimiento óptimo para no 
dejarnos ganar, y lo que es peor, para ganar él. 

Hemos programado una subrutina para que podáis aprender dos cosas que son muy importantes, la 
primera a incluir una subrutina en un programa aparentemente terminado y otra ganarle al apárato 
calculando el movimiento óptimo. 

Posteriormente explicaremos la subrutina pero ahora veremos un ejemplo real de jugar a ganarle. El 
número de montes lo hemos fijado en cuatro y la suerte ha decidido que nosotros jugamos primero. Tal cual 
está diseñado el juego ahora, si cuando el aparato nos pide el número del monte del que queremos sacar 
objetos, le respondemos el número de montes que hay más dos, el Spectrum nos dibujará el estado del juego 
para poder hacer los cálculos de una manera sencilla. No hemos utilizado el aparato para hacer los cálculos 
porque nos ha parecido que sería demasiado fácil. 

En la primera figura se puede ver que cuando el Spectrum nos pregunta de que monte queremos sacar 
objetos le hemos contestado del monte: 6, la segunda figura es una copia de lo que aparece en la pantalla al 
apretar ENTER. Como se puede apreciar la tabla empieza por numerar las cuatro columnas para a 
continuación, ponermos el encabezamiento de la tabla: Monte, Objetos y lista de potencia de dos 
correspondientes a cada bit y las líneas sucesivas la representación binaria del número de objetos que hay en 
cada monte. Por último, nos da la lista de paridad de las columnas que como vemos no es O en este caso 
para las columnas 2, 1 y O, ya que, se suma es impar. 
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Nuestra misión consiste en sacar objetos de una 
columna que deje todas con suma par: En este caso 
si del monte 4 y de la columna segunda sacamos el 
1 y ponemos O y a las columnas 1 y O les sacamos 
el O y ponemos un 1 la tabla nos quedará con todas 
sus columnas pares. La columna 3 seguirá con 1, 
siempre para el monte 4, la columna 2 tendrá un 0 y 
por tanto, será par, la columna 1 le ponemos un 1 
que con el 1 de la columna correspondiente del 
monte -1 sumará 2 que es par y, por fin, a la 
columna O que le poniamos también un 1 tendrá así 
cuatro unos con lo que sumará 4 también par. A 
continuación, tenemos que calcular el número de 
objetos que hay que sacar del monte cuarto para 
que se cumpla lo que hemos dicho. 


Si a la columna 2 hay que sacarle el 1 habrá que 
sacarle 2 elevado a 2 objetos, es decir 4 objetos 
como se ve en la cabecera de la columna corres- 
pondiente Fig. 2. Pero no hay que olvidarse, y este, 
al menos entre nosotros, es el error más frecuente, 
que hay que poner un 1 en las columnas 1 y 0. Para 
poner un uno en la columna 1 no hay que sacar los 
4 objetos del monte cuarto sino solamente 2 ya que 
2 elevado a 1 es 2 y 4 menos 2 es dos. Por último 
para poner un uno en la columna cero hay que 
restarle 1 al número de objetos a sacar del monte 
cuarto, ya que 2 elevado a cero es uno. 


En consecuencia para dejar todas las columnas 
pares hay que sacar un solo objeto al monte cuarto. 
Pero si sacamos un objeto al monte cuarto éste nos 
queda con 11 objetos y la representación binaria de 
11 la podemos ver en el monte 1. De esta manera si 
sacamos un objeto al monte cuarto nos quedará 
como el monte 1, con once objetos y podemos ver 
perfectamente que ahora la lista de paridad de todas 
las columnas es cero. 


Después de haberle sacado 1 objeto al monte 
cuarto el Spectrum, en nuestro ejemplo, sacó los 
once objetos del monte primero haciendo su jugada 
al azar y nosotros volvemos a examinar la tabla 
respondiendo 6, (número de montes más 2), a la 
pregunta monte. Esta vez la tabla es impar para las 
columnas 3, 1 y O, Fig. 3, y es muy fácil darse 
cuenta de que la jugada oportuna es sacar 11 del 
monte 4, ya que con sacar los unos de las columnas 
impares, estas se hacen pares. 
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El 1 de la columna 3 vale 8, el de la 1 vale 2 y el de la O, 1, con lo que hay que sacar 8+2+1=11. En la 
siguiente jugada, el Spectrum, nos saca el 8 del monte segundo y nosotros vemos la tabla, figura 4, y 
observamos que es también muy fácil dejar todas las columnas pares, ya que la única impar es la primera y 
se deja par quitándole 8 objetos al monte tercero. 

En la última jugada el Spectrum le saca el último objeto al monte segundo y nosotros ganamos la partida 
al quedarnos con un objeto, el último, en el monte tercero. 

Esperamos que se entienda bien como se le gana al Spectrum jugando al Monte, parece complicado pero 
es sencillo y nos obliga a aprender a manejar números binarios. 


SUBmonte: Explicación 


La subrutina SUBMONTE tiene dos partes bien diferenciadas. Contiene una subrutina propiamente 
dicha y las modificaciones que hay que hacerle a la subrutina juega jugador para que el programa funcione 
admitiendo la nueva opción: número de montes más 2. 

La subrutina es muy sencilla y no hace más que escribir ordenadamente en la pantalla la variable m 
(?), que contiene el número de objetos de cada monte, b (?,?), que contiene la representación binaria del 
número de objetos de cada monte y P (?), que contiene la lista de paridad de las columnas. 

Por último, la subrutina contiene un lazo que escribe la lista de paridad de las columnas y comprueba 
que su contenido sea uno al menos para alguna columna, ya que si es cero para todas, como la jugada 
anterior la hece el Spectrum, nos avisa que hemos perdido. 

50 e modificación de la subrutina juega jugador es pequeña y consiste en variar el condicional de la línea 
30: 
IF ((mon<1) OR (mon>nu)) 


IF ((mon< 1) OR ((mon>nu) AND (mon<>(nu+2)))) 


con esta variación si mon=m>+2 no volverá a la línea 3030 y continuará en la 3031 que es nueva y 
ejecutará la nueva subrutina. 

De esta forma el programa ejecutará la subrutina siempre que saquemos objetos de el número de montes 
más dos que haya en juego. Si quisiésemos que este número fuese variable y sólo conocido por nosotros se 
puede poner en vez del 2 un nombre, por ejemplo, sec de secreto y crear una línea 1021 que asigne a la 
variable sec el valor que queremos, por ejemplo: 


1021 LET sec=232 

IF ((mon<) OR ((mon>nu) AND (mon<<(nu+sec)))) 
THEN GOTO 3030 
3031 IF mon=nu+sec THEN GOSUB 2200 


Si se programa así la subrutina será ejecutada cuando a la pregunta monte respondamos un número que 
es número de montes en juego más 232. En el caso de 4 montes 236. 
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SUBRUTINAS 


INTRODUCCION 


La subrutina en CODIGO MAQUINA está copiada en la cassette 4 veces de forma diferente: 
En SUB2mel, este es un programa en BASIC que ejecuta varias veces la subrutina SUB2m, y sirve 
como ejemplo del funcionamiento de la subrutina SUB2m. 


SUB2me2, es otro programa en BASIC que utiliza la subrutina SUB2m, que sirve como ejemplo y 
que carga la subrutina directamente como CODIGO MAQUINA. 


SUB2mc48k, estos son los bytes de la subrutina SUB2m pero la versión 48K del ZX SPECTRUM, 
para cargarla hay que bajar la RAMTOP 336 bytes. Para hacer esto, como ya hemos comentado y 
explica el manual del aparato, se escribe CLEAR 65199 y se pulsa ENTER, posteriormente se carga 
con LOAD “SUB2m48k” CODE. 


SUB2mcl16k, para la versión 16k, se escribe CLEAR 32430 y se pulsa ENTER, se cargá con LOAD 
“SUB2m16k”. 


CONDICIONES DE ENTRADA 
Antes de poner en marcha la subrutina SUB2m se necesita dar valores a sus parámetros. 


PARAMETROS. 


La subrutina necesita cuatro parámetros: 


1.— Ix que es la longitud del eje x de dos de los lados del cuadrilátero. 
2.— ly longitud en el eje y de los otros dos lados del cuadrilátero. 
3.— x0 posición en el eje x del comienzo del dibujo. 
4.- y0 posición en el eje y del comienzo del dibujo. 
De esta manera la subrituna necesita lx, ly, x0 e yO. 


CONDICIONES DE LOS ARGUMENTOS DE LOS PARAMETROS 


Ix tiene un valor mínimo de 1 y un máximo de 255. 
ly tiene un mínimo de 1 y un máximo de 175. 

x0 tiene un mínimo de O y un máximo de 255. 

y0 tiene un mínimo de O y un máximo de 175, 

Como es lógico, y dado que x0, y0 es el origen de la pantalla y el cuadrilátero se dibujará a partir de ese 
origen hacia la derecha x0+1x no puede ser mayor de 255, de la misma manera y0+ly no puede ser mayor 
de,175. 

Los colores del dibujo del cuadrilátero se puede cambiar modificando el valor (de INK o de PAPER) 
previamente a la utilización de la subrutina. 


SUBRUTINAS 


DESCRIPCION DEL PROGRAMA 


En primer lugar hay que comentar que el programa es ligeramente más largo de lo normal porque se ha 
utilizado el desplazamiento del registro IX lo que requiere 3 bytes para cada instrucción. El programa 
empieza por guardar en el “STACK” del computador el registro IX utilizando la instrucción push IX. 

A continuación, se carga el registro a con 2, (ld a, 2) y se llama a una subrutina que abre el canal 
correspondiente a la parte mayoritaria de la pantalla (call 5633). Como sabéis la pantalla del ZX 
SPECTRUM está dividida en dos trozos, uno de ellos, la parte mayoritaria de la pantalla, es donde se 
dibuja o se escribe, y la otra es la que utiliza el aparato para hacernos las preguntas de los INPUT o darnos 
las noticias de los distintos errores. La parte mayoritaria de la pantalla es manejada por el canal 2, y antes 
de dibujar o escribir en esta parte de la pantalla es necesario abrir el canal a través del cual el computador 
se comunica con ella. 


La siguiente instrucción coloca en el registro IX la dirección de comienzo de los argumentos de la 
subrutina para, a continuación, cargarlos en los registros b, e, h y 1, 1d b, (IX+0) carga ly en el registro b; 
ld c, (IX+1) carga Ix en el registro e,; Id-h, (1X+2) carga y0 en el registro h,; Id 1, (IX+3) carga x0 en el 
registro 1. Posteriormente se carga en la posición (1X+4) el registro b y el resto e en (IX>+5), es decir ly en 
en (IX+4) y Ix en (IX+5), más adelante veremos para que sirve esto. 

A continuación el registro a, se carga con el contenido del registro 1. Seguidamente, se suma al registro 
a el contenido del registro e utilizando add, que nos deja en el registro a el valor de la suma. Este valor lo 
volvemos a cargar en el registro 1. De esta manera el registro 1 contendrá ahora la suma de x0+1x. 

Esta operación la hacemos con el registro h y el registro b en las sucesivas tres instrucciones, con estas 
Operaciones conseguimos que el registro h y el registro 1, contengan el valor de la suma del origen del 
cuadro más la longitud del mismo para cada eje. 

A continuación guardamos h, 1y+y0, en (IX+6) y 1 1x+x0, en (IX+7). Cargamos en el par bc las 
mismas posiciones de memoria para empezar un lazo que dibuje la primera raya del cuadrilátero. El lazo 
hace lo siguiente: 


1.— carga en b 1y+y0 
2.— carga en ec 1x+x0 


3.— Ejecuta la subrutina PLOT de la ROM, que dibuja un punto en la posición indicada por bc, b=y y 
Cc=x. 5 


4.— Disminuye en una unidad la dirección (1X+4), que contiene ly 

5.— disminuye en una unidad la dirección (1X>+6), que contiene Ly+y0 

6.— carga en b la dirección (IX+4), ly 
7.— suma l a b y resta 1 a b para asegurarse el buen funcionamiento de jr nz. 


8.— salta a la posición del programa —22, 256-—22=234, si la bandera Z del registro F (Flags=banderas) 
contiene cero. La bandera Z, cero, se pone a 1 cuando una operación aritmética o booleana genera un 
resultado cero. Cuando una operación aritmética o booleana genera un resultado distinto de cero la 
bandera Z se hace O. Para acordarse Z miente. 


De esta manera desde la posición en la pantalla 1y+y0 se dibujan puntos que tienen un eje x constante, 
el registro e, que contiene 1x+x0, y que disminuyen hacia y0 en una unidad a cada ejecución del lazo. La 
longitud de la cadena de puntos será b que es ly. Por consiguiente se dibuja una raya vertical que partiendo 
de la posición en el eje de coordenadas (1x+x0, 1y+y0) termina en (1x+x0, y0). 

El siguiente lazo hacemos lo mismo con la diferencia de que ahora las direcciones que se decrementan 
son (IX+5), que contiene lx, (IX+7), que contiene Ix+x0. De esta manera se dibuja una línea que 
partiendo de (Ix+x0, y0) termina en (x0, y0) y tiene por longitud el valor de lx. 

El siguiente lazo recupera en (IX+4), ly y en (1X+5), 1x cargándolos de (IX+0) y (IX+1) respecti- 
vamente. Vuelve a cargar en b,(IX>+6) y en c,(IX+7) pero ahora las dos direcciones contienen y0 y x0. A 
yU se le suma 1 y a ly se le resta 1 hasta que ly=0. De esta manera se dibuja una línea que.parte de 
(x0, y0) y termina en (x0, 1y+y0). 

Por fin en el último lazo la línea cierra el cuadrilátero porque parte de (x0, Iy+y0) y termina en 
(1x+x0, 1y+y0). 
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La instrucción pop IX devuelve al registro IX su contenido original antes de haber sido ejecutada la 


lazos. El problema no es tan sencillo como a primera vista parece porque hay que buscarse un truco para 
subrutina “DIBUJA CUADRILATEROS” y ret vuelve al BASIC. 


cambiar los registros b, y, y c, x, de manera que se pueda dibujar en los dos ejes de coordenadas. 
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El programa es un ejemplo con varias secuencias de llamada de la utilización de la subrutina SUB2m 
que dibuja paralelogramos rectángulos. Contiene la subrutina SUB2m en BASIC que será cargada en el 
lugar oportuno por el lazo de la linea 8290. El programa contiene también una pequeña subrutina, 
PARAMETROS, que es útil para hacer funcionar en BASIC la subrutina en CODIGO MAQUINA, ya 
que carga en RAM x0, y0, posición inicial del vértice inferior izquierdo del cuadrilátero, y 1x, ly, longitud de 
los lados, para a continuación, ejecutar la subrutina en CODIGO MAQUINA. 

El programa empieza en la línea 1 bajando la RAMTOP al sitio oportuno para que la subrutina esté por 
encima de la RAMTOP, posteriormente la lina 2 ejecuta la subrutina que carga en RAM los bytes del 
CODIGO MAQUINA, líneas 8000 a 8260, que se llama plot cuadrilátero. 

En la línea 10 comienza la secuencia de llamada número 1, que dibuja un cuadrado en el centro de la 
pantalla, en la posición x0=100, y0=100 y con lados de una longitud de 9 “*pixels”, después hace una 
pausa de dos segundos, (100/50), y limpia la pantalla. 

En la línea 100 da comienzo la secuencia de llamada número 2 que esta formada por un lazo que dibuja 
20 cuadriláteros en la pantalla, cada cuadrilátero se dibuja en una posición de x0, origen de x obtenida de 
multiplicar por 12 el valor del contador del lazo, s, línea 130, una longitud de x, lx, medio punto más grande 
a cada cuadrilátero, una longitud de y, ly, que disminuye en 8 “pixels”? por cada incremento del lazo y una 
posición del origen de y, y0, que aumenta en 8 “pixels” a cada ejecución del lazo, de esta manera los 
cuadriláteros son progresivamente más cortos, más anchos y están alineados en el borde superior de la 
pantalla. En cada incremento del lazo se ejecuta la subrutina que empieza en la línea 8400, PARAMETROS, 
que asigna a las posiciones de memoria de donde van a ser tomados los valores de los parámetros x0, y0, lx, y 
ly, ejecutando la subrutina en CODIGO MAQUINA. A continuación se hace una pausa de dos segundos y 
se limpia la pantalla. 

En la línea 300 empieza la secuencia de llamada número 3 que comienza por poner la pantalla en 
amarillo y la tinta en verde, posteriormente asigna el valor O a la variable con (contador) que va a servir 
para variar el color con el que se dibujan los cuadriláteros. Las variaciones del color de la tinta se hacen en 
la línea siguiente que obliga a que el color de la tinta varíe entre O-y 8. El lazo que comienza en la línea 360 
va a asignar los argumentos a los parámetros de la subrutina, antes de ejecutarla en la línea 410; en primer 
lugar asigna como posición x0, de origen del cuadrilátero, el valor del contador del lazo la variable s, a yO 
le asigna un valor que oscilará entre O y 100 de acuerdo con el valor absoluto del seno de s, la longitud de x, 
lx, es constante para todos los cuadriláteros y por fin, la longitud de y, ly, varía de acuerdo con el seno de s 
dividido por 4. Este lazo dibuja por tanto una función sinusoidal, que da el dibujo que se puede apreciar al 
ejecutar esta secuencia de llamada, Fig. 1. 

La línea 440 tiene un IF que obliga a que la ejecución del programa continue en la línea 500 si la 
variable ti es mayor que cuatro. Por tanto, mientras ti no sea mayor que 4 la ejecución de la secuencia de 
llamada continuará en la línea 340 gracias al GOTO de la línea 450. 

La secuencia de llamada número 4 dibuja otra función sinusoidal. Fig. 2. Está programada para que se 
pueda apreciar la velocidad de la subrutina. La subrutina dibuja cada cuadrilátero independientemente, pero da 
la impresión de que dibuja simultáneamente en dos posiciones distintas de la pantalla, este efecto se acentúa al 
tener colores distintos los cuadriláteros. La secuencia de llamada es un lazo, línea 5206, que pone el valor de 
la tinta en 1 si el contador del lazo es par en 2 si es impar, líneas 530 y 540, a continuactón asigna como 
valor inicial de x0, el valor del contador del lazo, al valor inicial y0, un valor que depende del valor del seno 
de s, la longitud Ix del cuadrilátero oscilará entre 1 y 11 y por fin, el valor de ly es constante y vale 20. Se 
ejecuta la subrutina y termina el lazo, se hace una pausa de dos segundos, se limpia la pa para 
continuar en la secuencia de llamada número $. 

La secuencia de llamada número 6 nos permite dibujar cuadrados rellenos en la pantalla. La secuenció 
pantalla del Spectrum para ello, a x0 se le da el valor 0, a y0 el valor O, la longitud de x es 255 y la de y 
175, y se ejecuta la subrutina. A continuación, hay un lazo muy similar al de la secuencia de llamada 
número 4 pero que dibuja barras. 


La secuencia de llamada número 6 nos permite dibujar cuadrados rellenosen la pantalla. La secuencia 
de llamada comienza, línea 820, por un INPUT cuádruple que nos permitirá fijar la posición en la 
pantalla del cuadrado, su tamaño y su color. No hemos evitado errores de posición, tamaño ni, color para 
no alargar la secuencia y por ello si se dan valores que se salgan de los márgenes se producirá un error. 
El lazo que rellena el cuadrado comienza en la línea 830 y lo único que hace es dibujar cuadrados 
concéntricos que, partiendo de la posición inicial, son cada vez más pequeños, es interesante observar que el 

_color de la tinta se fija al comenzar el lazo, al color deseado y se vuelve a fijar al terminar, al color cero 
(negro). 

Una vez terminado el lazo de INPUT nos pregunta si queremos dibujar más cuadrados y en caso 
afirmativo la subrutina comienza de nuevo. Hay que tener cuidado para no salirse de la pantalla porque no 
están previstos los errores de tamaño del cuadrilatero ni de su situación en la pantalla. En caso de respuesta 
negativa el programa continua en la secuencia de llamada siguiente. 

La secuencia de llamada número 7 es simplemente un juego de cuadriláteros en la pantalla. La subrutina 
comienza, línea 1000, por dar a la variable a el valor O, esta variable será incrementada en 10 unidades 
cada vez que se ejecuta el lazo que comienza en la línea siguiente, ver línea 1080. El lazo dibuja 
cuadriláteros con respecto a su origen de manera que parezca un dibujo tridimensional, este desplazamiento 
se fija en la línea 1040, en la que como se ve, el valor de x0 se multiplica por dos a cada incremento del 
contador del lazo, la variable s. El valor de y0 lo toma del contador de esta manera el origen se desplaza el 
doble hacia la derecha que hacia arriba, la longitud de los lados del cuadrilátero es variable y en el caso de 
la longitud de x dismunye de manera lineal con el incremento del contador del lazo. En el caso de la longitud 
de y, la relación es más complicada puesto que depende del valor de la variable a y de la variable s. 

En la línea 1060 se ejecuta la subrutina en CODIGO MAQUINA y en la 1070 termina el lazo, a 
continuación se hace una pausa de 10/50 de segundo, se limpia la pantalla y en la línea 1100 se comprueba 
que a sea menor de 150. Cuando a es mayor de 150, termina la secuencia de llamada y el programa, y 
cuando a es menor se vuelve a ejecutar la secuencia de llamada con un valor de a al que previamente se le 


ha sumado 10, línea 1080, de esta manera el dibujo tiene un punto de inflexión mínimo que se desplaza. 
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SUBRUTINAS 


INTRODUCCION 


El programa SUB2me2 está escrito en BASIC y es un ejemplo de utilización de la subrutina SUB2m 
que es cargada en las posiciones de memoria oportunas como bytes. 

El programa es sencillo y contiene dos secuencias de llamada que ejecutan la subrutina DIBUJA 
CUADRILATEROS. La primera secuencia dibuja primero un marco que es el borde efectivo de la pantalla 
del aparato y a continuación y a partir del borde izquierdo de la pantalla dibuja paralelogramos rectángulos 
que crecen en su dimensión horizontal a medida que parece que se alejan del borde. Las dimensiones de los 
cuadriláteros, el número de ellos que se dibuja y su separación son números al azar. La secuencia de 
llamada puede cometer errores ya que nos hemos preocupado más de que los dibujos sean bonitos que de 
que el dibujo no se saliese de la pantalla y si se sale no preocuparse y volver a ejecutar el programa. Si 
queremos evitar estos errores basta con cambiar en la línea 260 la instrucción (RND 100) por (RND 50). 

Para salirse de la primera secuencia de llamada hay que apretar fo F ya que sino sigue indefinidamente 
dibujando cuadriláteros hasta que se provoque un error por salida de la pantalla. 

La segunda secuencia de llamada DIBUJA CUADRILATEROS en posición al azar dentro de un 
marco igual al anteior, en ambos casos es dibujado por la subrutina MARCO PANTALLA ZX. Los 
cuadriláteros dibujados disminuyen progresivamente de tamaño para cada sucesivo dibujo. Dentro de cada 
dibujo los cuadriláteros tienen dimensiones al azar dentro de los límites prefijados. Estos limites tienen un 
máximo que se puede alcanzar manteniendo apretada la tecla BREAK SPACE entre un dibujo y el 
siguiente. La disminución del tamaño máximo de los cuadriláteros es progresiva hasta un mínimo a partir 
del cual el aparato vuelve a fijar las dimensiones máximas «de manera aleatoria. 

Para terminar el programa hay que volver a apretar fo F y de esta manera termina el programa. Nuestra 
idea es que esta secuencia de llamada no comete errores y por lo tanto el programa continúa dibujando 
mientras no apretemos f. Al final de cada dibujo hace una pausa que se puede suprimir, como todas 
las programadas con la instrucción PAUSE, manteniendo apretada una tecla. 


Descripción del programa: 


El programa contiene las siguientes subrutinas: 
1.- SECUENCIA DE LLAMADA 1: Dibuja cuadriláteros a partir del borde izquierdo de la pantalla. 
2.- SECUENCIA DE LLAMADA 2: Dibuja cuadriláteros en posiciones al azar de la pantalla. 
3.- MARCO PANTALLA ZX: Dibuja una línea justo en el borde de la pantalla útil del Spectrum. 
4.- CARGA CODIGO MAQUINA: Carga en la situación oportuna el código máquina. 
SECUENCIA DE LLAMADA 1: 
En la línea 200 empieza la SECUENCIA DE LLAMADA 1 que comienza por borrar la pantalla y 


ejecutar la subrutina MARCO PANTALLA ZX, línea 220. A continuación, línea 240, carga en RAM el 
argumento del parámetro ly, longitud del cuadrilátero en el eje y, que fija en un número entre 5 y 104. A 


SUBRUTINAS 


continuación el lazo que empieza en la linea 260 funciona desde 1 hasta un número entre 20 y 119 y lo hace 
a intervalos entre 1 y 3. Las líneas que siguen, 270, 280 y 290 cargan en RAM los tres argumentos 
restantes, a saber, lx, y0 y x0. Como se puede observar a Ix y x0 se le asigna como valor la variable 
contador del lazo y a y0 se le asigna s/y0 para que no crezca tan deprisa y evitar que se salga de la pantalla. 

La línea que viene a continuación. 300 sirve para variar el color de la tinta, INK, entre O y4 y el nivel 
del “beep” entre O y 60. En la línea 310 se utiliza la forma LET w=USR para poner en marcha SUB2m 
debido a que si se utiliza RANDOMIZE USR con RND en el mismo lazo el RND funciona mal. La linea 
siguiente termina el lazo y la 330 escribe un cartel para que el usuario sepa que para terminar hay que 
pulsar f. La paisa de la linea 340 permite ver el dibujo y la secuencia de llamada termina con el condicional 
que permite terminar el lazo si se aprieta F o f o seguir en la línea 220 si no se aprieta nada. 


SECUENCIA DE LLAMADA 2: 


Comienza por borrar la pantalla y asignar el valor 20 a ta, tamaño. La línea 430 utiliza RANDOMIZE 
que asegura que la secuencia de número RANDOM (al azar) sea verdaderamente al azar. El lazo empieza 
en una y termina en un número entre 10 y 139. Las cuatro líneas siguientes asignan valores a los parámetros 
de SUB2m y la 500 y 510 vigilan que los cuadriláteros no se salgan de la pantalla. Desde la línea 520 hasta 
la 550 se cargan en RAM los argumentos de los parámetros y la 560 pone el valor de INK, tinta, en un 
número entre O y 3 para la 570 ejecutar la subrutina y la 580 emitir un sonido que vale 10+X mientras Ix 
sea menor de 50. Es interesante para los que no tengan una idea muy clara de la diferencia entre las lineas 
470 y 560 ejecutar el siguiente programa: 


10 FORS=1 TO 1000 
20. PRINTS "+ TAB 67” RND*10=" (RND*105 
30 PRINT TAB 20; "MOD 
s*s= ”; INT ((s/10-INT (s/10) * 10)+0.5) 
40 NEXT s 


que en dice mucho más de cien palabras tratando de explicarla. La línea 600 devuleve el valor O al color de 
la tinta y la 610 vigila si se ha apretado f o F para terminar el programa, la 620 os desea felix año y la 630 
cambia el valor del tamaño de los cuadriláteros a 100 si se ha apretado la tecla BREAK SPACE. La 640 
hace una pausa y la 650 disminuye el valor de ta, tamaño, en 5 unidades hasta que ra sea 2 o menor de 2 ya 
que entonces le asigna a ta un valor entre 2 y 101. Para terminar la línea 660 borra la pantalla y vuelve a la 
440 que empieza por redibujar el marco. - : 


MARCO PANTALLA ZxX: 


Esta subrutina dibuja una línea exactamente en el borde de la pantalla del ZX Spectrum. Para ello 
asigna a los argumentos sus valores límites y ejecuta la subrutina SUB2m. 


CARGA CODIGO MAQUINA: 


Esta subrutina permite ejecutar nuestras subrutinas en código máquina en ambos modelos del 48K y el 
16K. El aparato busca en la memoria la primera dirección de los caracteres definidos por el usuario y 
restándole uno pone la RAM TOP en esta posición. A continuación carga los bytes del código y modifica la 
subrutina para que funcione en esta dirección. 

La subrutina empieza por asignar una serie de variables: 


mr=una marca para saber si ha modificado el final artificial de la RAM. 


. losu=longitud del c.m. de la subrutina. 


e 


. lopa=longitud del área de parámetros. 


. posva=situación con respecto al comienzo de la subrutina de los bytes que hay que variar. Posición a 
variar. 
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. loto=longitud total de la subrutina. 

. rtga=RAM TOP de caracteres gráficos. En realidad posición del primer caracter gráfico menos 1. 

. rtnu=Posición nueva del final artificial de la memoria RAM, RAM TOP. 

. disu=dirección de comienzo de la subrutina. 

. dipa=dirección de comienzo de los parámetros. 

. Ply, plx, py0, px0 direcciones donde deben estar los argumentos de los parámetros. 

. dnpv=dirección de las posiciones de la subrutina a variar cuando se cambia de lugar en la memoria. 
. msbv, Isbv=bytes más significativo (more) y menos significativo (less) de la variación. 

El funcionamiento de la subrutina es muy sencillo ya que solamente suma y resta los valores de las 
variables. La única línea que puede presentar algún problema es la línea 9890 que permite cambiar la RAM 
TOP SI mr es cero. Es necesario hacer esto porque al ejecutar CLEAR se borran las variables y antes no se 
puede ejecutar porque no ha calculado su nueva posición. Como es lógico esta subrutina sólo funciona con 
subrutinas es c. m. que sean independientes de su posición en la memoria. Lo que cambia del c. m. es la 


dirección de comienzo de los parámetros que es:el único dato, aparte de los valores de estos parámetros, que 
necesita SUB2M para funcionar. 
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Mete.mod 


En esta cassette incluimos un trozo de programa que llamaremos .mod que sirve para modificar el 
programa Metedatos. La inclusión de este trozo de programa, como ya habéis visto con SUBmonte, no va a 
ser rara en nuestras cassettes aunque esperemos que no se repita por uno de los motivos por el que hemos 
incluido en ésta un fragmento de este tipo. El motivo fundamental de los .mod será permitirnos modificar 
nuestros programas para adaptarlos a vuestras necesidades como en el caso de SUBmonte. 

El programa metedatos es modificado por Mete.mod por dos motivos: 


a) El Sr. Manzano, de Alicante, ha detectado en el programa Metedatos lo que en inglés se conoce con el 
nombre de bug (bicho) y en castellano se llama chapuza. En primer lugar pedimos perdón por la 
chapuza y esperamos que no vuelva a suceder pero, desgraciadamente, sabemos que, pese a nuestros 
esfuerzos por evitarlo, indefectiblemente sucederá de vez en cuando y esperamos nos lo comuniquéis 
para ponerle remedio. Nuestra chapuza consistió en que en la línea 2530 del programa la instrucción 
LET n$=n$+.dat” va detrás de una instrucción IF que evita que se ejecute por lo que n$ se queda sin 
”.dat” y el programa es incapaz de cargar del cassette los archivos que ha grabado. El programa lo 
hemos modificado en el sentido de que ahora sí pone el .dat pero si alguien tiene grabados archivos de 
datos en cassette que no pueda leer, para cargarlos primero hay que modificar el programa como 
indicamos y después hay que quitar el .dat de la linea 2070, cargar el archivo y grabarlo de nuevo. 


b) El programa Metedatos no admitía números negativos porque la versión de barras sobre:la que 
estábamos trabajando tampoco los admitía. Ahora barras admite negativos, esperamos que sin ningún 
problema, y hemos modificado las lineas necesarias de Metedatos. 


c) Para los poseedores de un 48K o un Plus hemos numerado barras para que pueda ser sumado a 
metedatos con MERGE. Es obvio que hay que programar el paso de un programa a otro pero es 
sencillo. 


Procedimiento de modificación de Metedatos. 


Cargar Metedatos con LOAD ” ” y ENTER 
Pulsar CAPS SHIF y BREAK. El Spectrum debe contestar: 
L BREAK into program. 3480:1 
Pasar a modo E (extend) pulsando SYMBOL SHIFT y CAPS SHIFT 
Cargar Mete.mod con MERGE ”Mete.mod” y ENTER 
Ahora listar las líneas 465 a 459 que debe existir y si existen y no habéis borrado metedatos por 
equivocaros de tecla y haber utilizado LOAD en vez de MERGE el programa está corregido y por 
tanto guardar la copia nueva con SAVE ”Metedatos” LINE 10 y ENTER. 
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APLICACIONES SENCILLAS 


CARGA Y COMIENZO 
Escribir NEW y ENTER. 


El programa BARRAS se carga con LOAD ”Barras” ENTER, como todos sabéis si no se ven las rayas 
coloreadas en el borde de la pantalla es que el programa no se está cargando y hay que volver a empezar. 

Una vez dentro del programa, que se ejecuta inmediatamente, nos pregunta un nombre y éste es el 
nombre de un archivo creado con METEDATOS, los tres archivos que siguen a Barras en la cassette 
ejemp 1, ejemp 2 y ejemp 3, se pueden representar con este programa y de hecho están pensados para que 
os ayuden a comprobar el funcionamiento que no nos parece que tenga problemas, ver mete,mod. 

Una vez cargado el archivo correspondiente para lo cual hay que escribir el nombre ejem? y ENTER y 
ca y ENTER, el programa pasa a representar la totalidad de los datos del archivo. A continuación nos 
permite una serie de opciones: 


1) Línea para el título: Lo que contestamos a esta pregunta será escrito en la primera línea de la pantalla 
encima del dibujo. 


2) Copia la pantalla: Copia la pantalla en la impresora si contestamos s y ENTER. Si en la impresora que 
tengamos la instrucción COPY funciona. 


3) Cambia el número de datos representados: Cuando se contesta s el aparato nos pregunta el primero y el 
último dato a representar y representa todos los datos que hay entre estos dos, ambos incluidos. 


4) Sigue representando datos: Si se contesta n, el programa termina. 


5) Borro los datos representados: Es conveniente contestar a esta pregunta s antes de cargar otro archivo 
de datos para representar, aunque si se comienza con RUN no es necesario por que RUN borra d( ) que 
es donde están los datos. 


INTRODUCCION 


Hoy en día para expresar relaciones numéricas de forma rápidamente comprensible recurrimos a la 
representación gráfica. En ella se representan longitudes remplazando a los números y entre todas las 
formas de representar gráficamente números, los histogramas de barras, son una de las más utilizadas. 

Dentro de la representación numérica por longitudes la más corriente es la representación en un primer 
cuadrante del eje de coordenadas cartesianas de los números como barras de distinta altura. En esta 
representación generalmente se toma como altura máxima una longitud cualquiera y a partir de ella se 
calcula el resto de las longitudes entre el cero y la longitud máxima. 

Sin embargo, para representar la mayoría de los fenómenos esta representación no es la mejor ya que 
las diferencias suelen ser pequeñas y las barras suelen ser de alturas similares. Por ejemplo: para reprentar la 
proporción de matrimonios por cada mil habitantes, que se celebraron en Inglaterra desde el año 1920 hasta 
el 1929 partiremos de las siguientes cifras: 


1920 1921 
10.1 8.5 
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Como podemos observar la oscilación es pequeña entre una cifra máxima para el año 1920 de 10.1 y 
una mínima para 1926 de 7.2. Si representamos el año 1920 como altura máxima, el 1926 será una barra 
que tenga, aproximadamente, un 30 % menos de altura, mientras que si representamos como altura máxima 
la diferencia entre el máximo 10.1 y el mínimo 7.2, esta diferencia será toda la escala y de un sólo golpe de 
vista, podremos apreciar que 1923 tuvo menos matrimonios que 1922. 

El programa que presentamos a continuación hace automáticamente este tipo de gráficos, de tal manera 
que dada una tabla de números que pueden ser introducidos en un archivo utilizando el programa metedatos, 
es capaz de buscar el máximo y el mínimo de los datos y transformarlos, entre un valor mínimo de 20 y un 
valor máximo de 120, para poderlos dibujar utilizando la rutina dibuja cuadriláteros, como barras de 
distinta altura. El programa debajo y encima del dibujo escribe seis valores: 


1) Valor de las divisiones del eje y: y 
2) Valor máximo de y: may 

3) Valor mínimo de y: miy 

4) Número total de datos: datos 

5) Primer dato representado: pd 

6) Ultimo dato representado: ud 


Es decir, dado el valor máximo y el valor mínimo, y es el valor de una división, el valor máximo de y es 
el valor máximo de la tabla y el valor mínimo de y es el valor más pequeño, el número de datos es.el número 
de barras que puede dibujar. El programa nos permite dibujar las barras, es decir los datos de la tabla desde 
un número cualquiera a otro número cualquiera, siempre que haya datos, de tal manera que no sólo podamos 
comparar los elementos de la tabla entre sí, sino grupos de estos elementos. Automáticamente varía la 
dimensión de las barras para ajustarlas al tamaño de la pantalla. El eje x está marcado cada cinco datos, las 
marcas de 10 datos son un punto más largas. 

El Spectrum cuando crea una variable indizada numérica con una instrucción DIM d(100) pone los 100 
valores O. El programa lo que hace es empezar por el valor 100 y, disminuyendo el valor del contador del 
lazo en una unidad, buscar el primer valor que no es O y tomar como longitud de la tabla la posición de ese 
valor en la tabla. 


DESCRIPCION DEL PROGRAMA 


SUBRUTINAS 


El programa consta de las siguientes subrutinas: 

Programa principal: rutina directora. 

Cambia número de datos: permite representar un número de datos a placer de la tabla. 
Dibuja histograma. 


a) Busca may y miy: Busca los valores máximo y mínimo de la tabla. 
b) Calcula escala: calcula la escala para convertir los valores a valores que oscilen entre O y 120. 
c) Transforma: transforma la tabla de datos en otra tabla que contiene los datos modificados, de tal 
manera que oscilen entre O y 120. 
Dibuja datos: dibuja las barras utilizando la rutina SUB2m, dibuja cuadriláteros. 
Marca eje y: pone marcas en el eje y 
¿Qué es?: escribe los datos del gráfico. 
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DESCRIPCION 


El programa empieza poniendo la RAMTOP, final artificial de la memoria RAM, 169 bytes más abajo 
de la situación de los caracteres gráficos definidos por el usuario. A continuación, línea 5030, nos manda a 
la rutina plot cuadrilátero que carga los bytes correspondientes a SUB2m. En la línea 5040 se dimensiona 
la variable indizada d( ) con 100 valores numéricos y en la línea 5050 pregunta el nombre del archivo que 
queremos representar, este nombre lo carga, línea 5060, en la variable alfanumérica d$ utilizando la 
instrucción INPUT LINE que sirve para cargar d$ sin que nos ponga en la pantalla las comillas de las 
variables alfanuméricas. 

A continuación, línea 5070, hay un lazo que vigila que no exista un punto en el nombre, y en la línea 
5080 vigila que la longitud de d$ sea inferior a 6 caracteres, si es superior pregunta otra vez el nombre 
yendo a la línea 5050 y si es inferior, continúa en la línea 5090, sumándole el nombre ”.dat” y asignándole 
a otra variable alfanumérica n$, el valor del nombre anterior. El punto dat es muy útil cuando se tiene en 
un microdrive, muchos archivos de distintos tipos, para saber que el archivo que lo lleva es de datos y son 
datos de este programa que están en d( ) y en número de 100. 

En la línea 5100, el programa nos pregunta si los datos están guardados en cassette o en microdrive, 
nuestra respuesta, que vuelve a ser introducida en la variable alfanumérica d$ tiene que ser ca seguida de los 
caracteres que sean o mi seguida de los caracteres que queramos, es decir, identifica los dos primeros 
caracteres de cassette o microdrive y salta al sitio correspondiente para cassette o microdrive. A 
continuación del INPUT LINE, línea 5100, que carga nuestra respuesta en la variable alfanumérica d$, 
existe una instrucción, IF que lo que hace es tomar como un error, cualquier respuesta que no tenga como 
dos primeros caracteres ca o mi, y escribe el cartel “las dos primeras letras”, si la respuesta no es correcta 
volviendo a la misma línea para preguntar otra vez si es cassette o microdrive. 

La línea 5110 sirve para que si la respuesta es cassette, el programa continúe en la línea 5150 cargando 
la variable indizada d( ) del cassette, si la respuesta no es cassette, el programa asume que es microdrive, 
ya que, en la línea 5100 se evita que se pueda dar otra respuesta, y limpia la pantalla, línea 5120, 
preguntando qué microdrive contiene los datos. Nuestra respuesta que se carga en la variable md, se 
comprueba, a continuación si es un número entre 1 y 8, que son las posibilidades de microdrives que tiene el 
Spectrum, si la respuesta está fuera de este margen, vuelve a hacer la pregunta, y si está dentro, trata de 
cargar del microdrive correspondiente el archivo cuyo nombre le hemos dado, línea 5130. 

La línea 5140 salta a la línea 5160, ya que la linea 5150 carga datos de la cassette. La línea 5160 es un 
lazo que comprueba a partir del valor 100, si los valores en la tabla d( ) son O, y cuando encuentra un valor 
que no es cero el lazo termina asignado a la variable con, el valor del contador del lazo s, y yendo a la línea 
5180. 

La línea 5180 crea las variables pd y conm, y les asigna sus valores. La variable pd, primer dato, toma 
el valor 1, y la variable conm, toma el valor con. Estas variables son necesaias para conservar los valores 
iniciales y finales de la tabla que pueden ser variados durante la ejecución del programa, como veremos más 
adelante. 


Programa principal 


Ejecuta el programa comenzando por llamar a la rutina dibuja histograma y después de haber dibujado 
el gráfico hace varias preguntas: 


1.— ¿Copio la pantalla? La respuesta controlada es s que evita que el programa salte la línea de COPY. 


2.— ¿Cambia el número de datos representados? En este caso s es la respuesta controlada que hace que 
se ejecute la rutina cambia número de datos. 


¿Sigue representando datos? Esta vez la respuesta controlada es n que termina el programa en la 
línea 9999, 


¿Borra los datos representados? En esta ocasión la respuesta controlada es s que nos manda a la 
línea 5040 en la que se dimensiona d( ). Como ya hemos comentado cuando se dimensiona una 
variable con índice se ponen todos sus componentes a cero si es numérica. 
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Cambia el número de datos 


La rutina empieza en la línea 5320 asignando a la variable con, el valor de la variable conm, para 
asegurarse que se conserva el valor de con, que será restituido al terminar la rutina, línea 5370, a 
continuación nos pregunta cuál queremos que sea el primer dato que va a representar y vigila que este dato 
esté entre 1 y con, línea 5340, seguidamente nos pregunta cuál queremos que sea el último dato, línea 5350, 
y vigila que este último dato sea superior al primer número, inferior a con, y mayor que 1, si no, nos escribe 
un cartel en la pantalla y vuelve a preguntar el dato. A continuación, asigna la variable con, el valor del 
último dato, línea 5380. 


Busca may y miy 


Esta rutina es muy corriente en el computador, ya que se utiliza para buscar máximo y mínimo de unos 
datos. Comienza en la línea 5450 asignando como valores máximo y mínimo de y, el primer valor de la 
tabla o el primer valor que queramos representar y a continuación, un lazo recorre la tabla de tal manera que 
si el siguiente es un valor más grande que el primero se lo asigna a la variable may, y si es más pequeño 
que el primero se le asigna a la variable miy, de esta manera cuando termina el lazo, may y miy, contendrán 
los valores máximo y mínimo de la tabla. 


Calcula escala 


La rutina lo único que hace es calcular 120 dividido por la diferencia entre el máximo y el mínimo, para 
calcular cuánto vale en la pantalla una unidad entre el máximo y el mínimo. Son 120 porque empieza a 
dibujar a partir de y=20, para dejar espacios al pie de la figura para escribir dos líneas, y encima de la 
gráfica para escribir otras dos. NN 


Transforma 


Esta rutina comienza por dimensionar una variable con índice, con el número de datos de con, que es la 
cantidad de números a representar, a continuación un lazo que recorre desde el primer valor de la tabla 
hasta el valor de con, transforma los valores de la tabla d ( ), en valores de la tabla t ( ), multiplicando los 
valores de d ( ), por la escala, transformándolos en enteros y restándoles el valor mínimo de y, multiplicado 
por la escala, de tal manera que los valores que contiene la tabla nueva t( ), oscilarán entre O y 120. 


Dibuja datos 


Esta rutina comienza por borrar la pantalla y asignar a los parámetros de la rutina dibuja cuadriláteros 
(SUB2m), los valores límite para que dibuje un cuadrilátero, con los límites del gráfico, por tanto empieza a 
dibujar el cuadrilátero en la posición x0= e y0=20, y dibuja una longitud de 1x=255 y de 1y=123, línea 
5640. 

A continuación, línea 5650, se calcula dx que será el ancho de la barra. Este ancho se calcula 
dividiendo 250 por el doble del número de barras. Este valor se le asigna en la siguiente línea a la variable 
1x que es la longitud en el eje x del paralelogramo que dibuja SUB2m. De esta manera la primera barra será 
dibujada a una distancia del eje y igual al ancho de las barras. En la misma línea se asigna a la variable y0, 
que es el origen en el eje y del paralelogramo, el valor constante de 20. 

Posteriormente se crea una variable contador c0, a la que se le asigna el valor O, línea 5670, y en la 
5680 da comienzo un lazo que desde el primer dato al último hace lo siguiente: primero le suma 1 al 
contador c0, segundo le suma a la posición donde va a dibujar la barra el valor del ancho de la misma, 
multiplicado por dos, para que las barras estén separadas por un espacio igual a su ancho, sigue línea 5730 
asignándole al alto de la barra el primer valor de la variable con índice t( ), es decir, de la tabla 
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transformada, las dos línea siguientes comprueban que ly, no sea mayor que 125 ni menor o igual a O, para 
evitar errores desagradables que pueda haber al calcular y que no hayamos previsto, la siguiente línea 
ejecuta la rutina cuadrilátero. Las líneas 5710 y 5720 marcan el eje x. 


Marca eje y 


Esta rutina marca el eje y, utilizando un lazo muy sencillo que entre 20 y 140 dibuja una raya cada 30 
puntos, por lo que serán dibujadas, cuatro marcas en el eje y. 


Qué es 


Esta rutina comienza por calcular el valor de ey, que será el valor de cada raya del eje y, se llama ey, 
porque es el valor de la escala de marcas en el eje y. Como comentábamos se dibujan cuatro rayas en el eje 
y, ey, será por tanto el valor del máximo de la tabla menos el mínimo de la tabla. dividido por cuatro. Este 
valor se escribe, línea 5840, en la posición 2,0, y en 2,po, el número total de datos (conm). 

En las líneas 5850 y 5860 se escriben en la pantalla: máximo de y, (may), mínimo de y, (miy), primer 
dato representado (pd) y el último dato representado (ud). Se calculan pos y po para escribir miy y ud 
pegados al borde derecho de la pantalla útil. 

La línea siguiente 5870, nos permite escribir una línea diciendo en qué consiste el gráfico. Esta línea es 
curiosa porque utiliza la parte inferior de la pantalla del Spectrum, reservada al INPUT y a los mensajes del 
aparato. La línea siguiente 5880, comprueba que la longitud de la variable 1$, que contiene la línea a 
escribir, no tenga más de 32 caracteres. La línea 5890 escribe esta línea centrada en la línea O y termina la 


rutina. 
Plot cuadrilátero 


La rutina carga los bytes del código máquina de SUB2m, línea 6190. 


Parámetros 


Esta rutina carga los argumentos de los parámetros de la rutina SUB2m y la ejecuta en la línea 6270. 
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INICIACION AL BASIC 


IB17a1B23 


INTRODUCCION 


La serie IB, INICIACION AL BASIC la empezamos en los números 1 y 2 de nuestra revista con los 
programas IB1 al IB16. Continuamos con nuestra serie de programas que tratan de transmitir al lector la 
idea de que programando se aprende a programar y de que ésta no es una labor ni tan difícil ni tan ingrata 
como aprender matemáticas en el colegio. Los programas de esta serie están concebidos para que se puedan 
fácilmente variar sus líneas y ver qué pasa, que es la actividad a la que dedica más tiempo el que quiere 
saber programar. 


El AT de PRINT 


En este número vamos a ver la opción AT del PRINT, y el programa 1B17 ilustra uno de los casos más 
sencillos del empleo del AT. 


Listado de programa 


Pot YX 
U "a:'"ja 
LA ES 
¿2,3; ¿b 


y : 
NT ATA 


El programa empieza como todos en la línea 10 con un REM que, como ya hemos comentado, es una 
instrucción que permite poner detrás de ella cualquier cosa que nos ayude a nosotros ya que el computador 
desprecia todo lo que esté escrito detrás de un REM, aunque sean instrucciones válidas. Este REM nos 
permite poner el nombre al programa IB 17 un signo igual que indica que va a tratar de AT, y el AT y,x para 
acostumbrar al lector que en la opción AT el primer número indica el eje y cartesiano y el segundo el eje x. 

Las dos líneas siguientes, líneas 20 y 30, tienen sendas instrucciones INPUT que nos permitirán asignar 
valores a las variables a y b. Después de cada INPUT se abren comillas, se escriben algunos caracteres y se 
cierran comillas. Lo que se escribe entre comillas el aparato lo escribirá en la pantalla. A continuación se 
pone un punto y coma que obliga al ZX a escribir inmediatamente después del carácter anterior a las 
comillas, y por fin se pone el nombre de la variable a la que hay que asignar el valor que nosotros 
escribamos. 

La línea siguiente, 40, contiene la instrucción PRINT con la opción AT. Detrás del AT vienen dos 
números separados por comas que obligarán a que los valores de las variables a y b, que se escriben 
después, sean escritos en la línea 4 de la pantalla y a partir de la columna 2. Detrás del segundo número se 
pone un punto y coma que indica al ZX que tiene que escribir inmediatamente después el valor de a. Detrás 
del punto y coma viene el nombre de la variable a que al 'no estar escrito entre comillas se escribirá su valor. 

Es importante tener siempre presente que todo lo que va entre comillas en BASIC es tomado como si 
fuese un valor alfanumérico y el computador lo tomará como tal, y todo lo que va escrito sin comillas es el 
nombre de una variable y el computador trata de buscar en su memoria el valor que esta variable tiene. El 
olvido frecuente, al principio, de esta regla suele ser causa de errores del programador en sus primeros 
pasos. : 

A continuación del nombre de la variable va otro punto y coma y después, entre comillas, un espacio 
que será escrito inmediatamente detrás del valor de la variable. Por último se pone otro punto y coma y el 
nombre de la otra variable. 
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Es importante también comentar que el punto y coma en BASIC sirve para decirle al computador que 
se escriba inmediatamente detrás de él, o para separar opciones de una misma instrucción PRINT. El pun- 
to y coma suele ser bastante inocuo, de manera que cuando un principiante no sepa qué poner en un 
PRINT, le aconsejamos que ponga un punto y coma, los errores que comete se ven fácilmente y son 
sencillos de corregir. 

El siguiente programa 1B18 utiliza una variable x para sustituir uno de los números de un AT. El 
programa se ejecuta ininterrumpidamente y para pararlo una solución es responder STOP a la pregunta x. 


Listado de programa 


Q REM IB18=AT y,: 
pe Epa , 
309_PRINT_ AT 9,0,"0123435789212 
o rad 
49 INFJT pio 


50 PRINT Ar. 1 
60 G0 TO 40 


ES 


Este programa es muy similar al anterior, la diferencia más importante, como ya hemos señalado, es que 
el AT de la línea 50 tiene un segundo número sustituido por la variable x a la que daremos un valor con el 
INPUT de la linea 40. De esta manera el programa escribirá este valor en la columna que le corresponda. 
Las dos líneas anteriores, 20 y 30, son muy útiles para familiarizarse con las opciones TAB y AT del 
PRINT. Los lectores que hayan leído los anteriores IB ya las conocen, al menos la 30 que se utilizó en los 
programas IB11 e 1B12. Estas líneas numeran las columnas de una línea del ZX Spectrum y nos permiten 
apreciar dónde escribe el aparato. 

La línea 60 nos envía a la 40 y vuelve a pedirnos otro número y así sigue el programa hasta que se 
responde STOP. 

El siguiente programa, el IB19, es ligeramente más complicado pero también más simpático. Como el 
IB 18 no tiene fin y para pararlo hay que cometer un error como responder STOP a una de las preguntas nu- 


20 


méricas. 
Listado de programa > -— 
48 REM 387 =AT 
INPUT "Escri € e nombre: *" 
"de PRINT NS 
40 PRINT “donde quieres que es 
criba tu 
SO PRINT A Pp: 
60 INPUT “x prisa 23 pe E O 
, tentre Q y 21): 
o 2LS 2 : 
30 PRINT AT y,x;'":ZX Spectrum! 
0. PRINT " "Lo primero es lo p 
ero 
"106 PAUSE 190 
110 


CLS 
120 PRINT 


AT y,xin5 


FF19B 69 TO 69 


Las líneas 10 y 20 no las comentaremos por ser similares a las 10 y 20 de IB17, la línea 30 escribe el 
valor alfanumérico de la variable n$ que contiene, esperamos, el nombre del usuario como respuesta a la 
pregunta del INPUT de la línea 20. Las líneas 40 y 50 escriben en la pantalla las dos frases entre comillas 
que están escritas detrás de las instrucciones PRINT. 

La línea 60 contiene otro INPUT y éste es un INPUT doble. En primer lugar hay que puntualizar que 
no todos los BASIC permiten este tipo de INPUT y a continuación decir que es una posibilidad interesante 
en el Spectrum ya que, con este tipo de INPUT, las preguntas y las respuestas se conservan en el fondo de 
la pantalla hasta que se responde a la última pregunta. 

En esta línea hay, primero, una frase entre comillas, a continuación, un punto y coma después, el 
nombre de la variable x a la que se le asignará la primera respuesta que demos, y sigue una comilla que 
obligará al Spectrum a escribir en la línea siguiente. Como la línea siguiente no existe, ya que los INPUT 
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escriben en la última línea de la pantalla, toda la pantalla subirá una linea para dejar sitio a la siguiente 
frase. La comilla que obliga a saltar una línea hace también de separador y, por tanto, no es necesario el 
punto y coma pero si se pone no sucede nada más que gastamos un byte inútilmente. Por último va la 
siguiente pregunta del INPUT, el punto y coma y el nombre de la variable a la que queremos asignar la 
segunda respuesta. Si este último punto y coma lo sustituimos por otra comilla solitaria toda la pantalla del 
Spectrun subiría una línea al ejecutarse esta parte del INPUT. 

La línea siguiente, 70, contiene la instrucción CLS que es abreviatura de clear screen, es decir, borra la 
pantalla, y es lo que hace. El PRINT de la lína 80 utiliza la opción AT para escribir la frase entre comillas 
en la posición que le hemos dado en los INPUT, y que guardan las variables y y x. 

La línea 90 tiene un PRINT y dos comillas solitarias detrás que obligan al aparato a saltar dos líneas 
antes de escribir la frase entre comillas. Es conveniente recordar que un PRINT que no lleve ni la opción 
TAB ni AT detrás escribe en la posición de la pantalla inmediatamente posterior a la última posición 
escrita. Este hecho, que parece tonto recordar aquí, es muy importante porque el PRINT de la línea 90 
escribe dos lineas más abajo del AT ya que la última Posición de escritura es el carácter ! después de Spec- 
trum. Este detalle es importante recordarlo porque suele ser fuente de errores al creer que el PRINT 
empieza una nueva página. 

En la línea 100 aparece la instrucción PAUSE, pausa, que ya hemos visto en el programa IB16 y que 
detiene la ejecución del programa durante 100/50 de segundo. Esta instrucción es muy útil y conviene saber 
que su valor es nulo cuando al ser ejecutada se está pulsando una tecla. Para ilustrar esto hemos puesto el 
programa siguiente que, aunque se aleja de nuestro tema de hoy, creemos que es interesante. Se para 
pulsando BREAK + CAPS SHIFT. 


Listado de programa 


38 BRINPUAP "10.8 "se anula PAU 
, ecla”. BN 


IB20 PRI eS ¡4 ANULO" 


El programa utiliza lo que hemos explicado anteriormente y sustituye parte de los caracteres de la 
primera frase por los de la segunda. Como una pausa está detrás del primer PRINT y otra después del 
segundo, a pesar de que la primera pausa es de unos 13 minutos (40000/50 $ = 800 segundos), si se mantiene 
pulsada una tecla PAUSE se anula y vemos oscilar los dos carteles en la pantalla. 

El programa siguiente es muy sencillo y permite observar la velocidad de escritura en la pantalla y 
cálculo de un computador pequeñito como el que estamos manejando. Como en el resto de los programas 
que no se paran hay que apretar CAPS SHIFT y BREAK. 


Listado de programa 


M IB2124T y,x 
Tazl y 


=a+b E 
: T AT 8,4;"sumo la la v 
B21 AT 12,12,"a=";a 
a AT 16,8,"s0y listo !h 
40 


La línea 20 asigna a la variable a el valor 1, asigna quiere decir que asocia el valor uno con la variable a 
y este hecho es importante porque en la línea 40 lo que el Spectrum hace es buscar en la memoria el valor 
asociado a la variable a, sumarle el valor asociado a la variable b y volver a asociarlo a la variable a. De 
esta manera si la línea 20 o la línea 30 no existiesen se provocaría un error ya que no encontraría ningún 
valor para estas variables y, por otro lado, si no siguiese este orden, la línea 40 no podría funcionar ya que 
daría como resultado siempre 2 y no la sucesión de números enteros: 2, 3, 4 ... n. Es importante, por tanto, 
tener en cuenta que los cálculos de detrás del signo igual se hacen antes que la asignación del valor del 
resultado a la variable que está delante del signo. 
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Las líneas 50, 60 y 70 tienen tres PRINT AT el primero escribe una frase en la línea 8 columna 4, el 
segundo escribe a= y a continuación los sucesivos valores que toma la variable a y el tercero otra frase. En 
realidad este programas funcionaría lo mismo si las líneas 50 y 70 estuviesen antes de la línea 40, y sería 
más rápido. Para probar esto lo único que hay que hacer es editar la línea 50, pulsando LIST 50 y ENTER 
y después CAPS SHIFT y EDIT, a continuación cambiarle el número de línea por el númro 32, pulsar 
ENTER y borrar la línea 50 escribiendo 50 y ENTER, después de hacer lo mismo con la línea 70 
cambiando su número por 34 por ejemplo, ejecutar el programa durante un minuto y ver a qué número llega 
a. Veremos que en la versión original el número al que llega a es inferior al que alcanza después de 
modificado el programa. Esto es debido al tiempo que en la versión original tarda el Spectrum en escribir las 
dos frases en la pantalla. 


OPERADORES BASICOS 


Los operadores básicos se observan en los siguientes programas que nos permiten trabajar con las cuatro 
reglas de sumar, restar, multiplicar y dividir. 


Listado de progama 


IB22=0peradores basicos 
pb LET b=1 


+ 
l] 


a 
t 
d 


1 
* 
2 
3 
4 
= 
z 
> 
El 
3 
a 
9 
uc 
-10 
1en 
11 
12 
13 


a 
£ 
o 
9 
9 
a 
9 
0 
ó 
o 
t 
la 
8 
0. 
0 
vd 


Listado de programa 


IB23 


En realidad estos dos programas, más que mostrar algo acerca de operadores básicos, lo que enseñan 
son dos formas distintas de trabajar con estos operadores. En el primer programa se crean variables 
intermedias que contienen los resultados de las operaciones artiméticas y posteriormente se escriben estos 
resultados. En el 1B23, por el contrario, se escriben directamente los resultados. cualquiera de los dos 
métodos tiene sus ventajas y sus inconvenientes y se pueden mezclar libremente pero nosotros aconsejamos 
a los que empiezan que utilicen el primero porque suele ser más claro y es más fácil buscar errores. 

Los programas tienen una línea 20 con dos instrucciones separadas por dos puntos que, como ya vimos 
en el IB16, se pueden utilizar en BASIC de Sincler. Las líneas 120 y 130 en IB22 y 80 y 90 en 1B23 son 
idénticas y permiten, aumentando una unidad a b volver a entrar en el programa para escribir nuevos 
resultados gracias a la instrucción GO TO. 


WO -JD YU PD 
06000000009 


SUBRUTINAS 
SUB 4a 


SUBAa Escribe 1 


La rutina tiene dos secuencias de llamada, en la primera, líneas 10 a 70, se asigna a la variable a$ el 
valor alfanumérico soy la subrutina escribe 1. Las líneas 40 a 60 asignan los argumentos a los otros 
parámetros de la rutina: ye línea en la que se debe escribir, ti color de la tinta, pa color del papel. De esta 
manera escribe 1 escribirá en la línea 10 de la pantalla sobre fondo rojo y con color de tinta contrastado (ver 
manuel pág. 111, color de tinta 9). 

La segunda secuencia de llamada, líneas 80 a 120, comienza por asignar a a$ otro valor alfanumérico: 
Te gusta como escribo, para continuar cambiando el valor de la línea de la pantalla donde escribe por 16: 
LET yc=16, y a continuación ejecuta escribe 1, línea 120. Si no se asignan valores a ti y pa toma los 
valores anteriores y escribe con color contrastado sobre fondo rojo. Es imprescindible dar valores iniciales a 
todos los parámetros ya que si no tienen valores la rutina no puede funcionar. Esto no quiere decir que una 
vez que todos los parámetros tienen valores sea necesario cambiar estos valores en todas las secuencias de 
llamada ya que basta con cambiar los que nos convenga para que la rutina funcione perfectamente tomando 
los valores anteriores para aquellos parámetros a los que no les hayamos asignado un nuevo valor. 
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EN RETURN 


Fw 46 DZMDIFAJATZI 


o 
DOHA Te DU RFDZR-CTTDO 


G0OJRNP +” Due 
mona m--2D 


REM 
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SUBA Escribe 1 
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La rutina escribe uno es la cuarta de nuestras rutinas escritas en BASIC y, como de costumbre, va 
acompañada de un programa ejemplo que muestra cómo se utiliza. La rutina está situada, también como 
siempre, a partir de la línea 8000 para que se puede cargar con MERGE en vuestos programas y 
posteriormente, si lo deseais, se puede cambiar de posición con CZXI1. 
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SUBRUTINAS 


La rutina sirve para escribir en la pantalla cadenas de caracteres que estén asignadas a la variable a$. 
Los caracteres se escriben uno a uno en la pantalla desde el vértice inferior izquierdo hasta su situación final 
en la pantalla, recorriendo primero una línea horizontal que va desde este vértice hasta la perpendicular de 
su columna en la pantalla, y desde esta posición hasta su línea en dirección hacia arriba. Después de estas 
explicaciones lo mejor será ver cómo funciona. 


Parámetros 


La rutina tiene cuatro parámetros: 


a$: 
ye: 
ti: 


pa: 


Es la variable alfanumérica donde está la cadena de caracteres. 

Es la línea de la pantalla donde queremos que se escriba af. 

Color de la tinta con la que queremos que se escriba la cadena de caracteres. 
Color del papel con el que queremos que se escriba la cadena de caracteres. 


Límites de los argumentos 


a$: 


ye: 


Tiene que tener entre 1 y 32 caracteres. Los caracteres pueden ser cualesquiera de los que se 
pueden escribir en la pantalla. Si son blancos sirve para borrar. 


Puede variar entre O y 21. Estas son las líneas de la pantalla. 
Puede variar entre O y 9. Igual que INK 


: Puede variar entre O y 9. Igual que PAPER 


Condiciones 


1) 
2) 
3) 
4) 


5) 


6) 


7) 


Si LEN a$<1. Se provoca el error 3, ““Subíndice erróneo, 8050:2”. Se debe a que en el segundo 
grupo de instrucciones se trata de ejecutar a$(0). Manual páginas 189-192. 


Si LEN a$>32: Se provoca el error B. “entero fuera de margen, 8050:2”. Se debe a que en el 
segundo grupo de instrucciones de esta línea se intenta escribir en la posición AT 21,s, siendo 
s=32. Manual páginas 189-192. 


Si LEN a$<32: La cadena de caracteres que se escribe se centra en la pantalla. 


Si ti=pa lo que escribe la rutina, obviamente, no se ve cuando está escrito pero sí se ven los 
caracteres mientras recorren la pantalla. 


Con respecto a ti y pa es conveniente recordar lo que sugiere el manual al respecto (pág. 111), si se 
varía uno y se pretende tener carteles en la pantalla que se puedan leer bien, es conveniente que el 
otro tenga valor 9 que es contraste. 


Si se escribe más de un cartel y queremos que el anterior quede en la pantalla hay que escribir el 
segundo debajo del primero ya que de lo contrario el segundo, al pasar, borra al primero. 


La rutina lleva, en la línea 8020, una llamada de atención, para que se acuerde el usuario de que si 
le cambia la numeración tiene que variar únicamente el número de la misma, ya que todo el resto de 
las instrucciones GOTO están referidas a la variable go de esta línea. Esto es verdad siempre que 
en la nueva numeración se mantenga una separación de 10 entre una línea y la siguiente. Es decir, 
si la rutina se pone a partir de la línea 120, la variable go debe tener como valor 120, no se pueden 
tampoco borrar los REM si se renumera la rutina. 


| 
| 
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SUBRUTINAS 


DH 


DOHA MCoD4Ha mz 
1 


PA 
LET Ppos=po05- 
EN RETURN 


REM !'Atencion! 
E 
((32-l0n)/2) + 
Lon-1 
FOR 5:=z0 TO pos: PRINT AT 21 


SUB5a 


SUBS5a Escribe 2 


200060210 


09 00 00 09 00 
00 00 0000 DO -- 00Z 00 - 
P??PG OMG MFH0G»w 


au4 o 
GTI 3 


El programa SUB5a además de servir como ejemplo del funcionamiento de la rutina escribe 2 tratamos 
de que sea un ejemplo de cómo se pueen enlazar rutinas. En este programa, a parte de escribe 2 hay otras 
dos rutinas que utilizan escribe 2. La primera, líneas 1000 a 1050, escribe una primera página y se ejecuta 
al principio y al final del programa, ver líneas 30 y 190. Esta rutina, página 1, tiene dos llamadas a escribe 
2, líneas 1020 y 1030, hace una pausa de 200/50 segundos, borra la pantalla y termina. La segunda línea 
blanca, líneas 1100 a 1140, escribe una linea en blanco utilizando, escribe 2 y termina. Esta segunda rutina 
se emplea mucho a lo largo del programa, ver líneas: 60, 90, 100 y 120. 

El programa SUB3a, línea 40 a 200, se limita a una serie de llamadas a las rutinas después de haber 
cambiado los valores a algunos de sus parámetros. 
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SUBRUTINAS 


SUB5 


SUBS Escribe 2 


La rutina escribe dos es muy corta pero muy útil porque ocupa poco espacio y escribe de manera 
bastante atrayente. Sirve para lo mismo que la Escribe 1, pero se ejecuta mucho más rápidamente porque 
no tiene que recorrer el carácter la pantalla. Como siempre, está situada en la línea 8000 y se puede cambiar su 
numeración sin el menor problema porque no tiene ninguna instrucción de salto. 


Parámetros 


La rutina tiene los mismos parámetros que Escribe 1. 


a$: Es la variable alfanumérica donde está la cadena de caracteres. 


: Es la línea de la pantalla donde queremos escribir a$. 


Color de la tinta con la que queremos escribir la cadena de caracteres a$. 


: Color del papel con el que queremos escribir la cadena de caracteres a$ 


Límites de los argumentos 


: Tiene que tener entre O y 69-ye caracteres. Los caracteres pueden ser cualquiera de los que se 


pueden escribir en la pantalla. Si son blancos sirven para borrar. 


: Puede variar entre O y 21. Estas son las líneas de la pantalla. Recordar que si se escriben más de 32 


caracteres en la línea 21 se provoca un error. 
Puede variar entre O y 9. Igual que INK. 


pa: Puede variar entre O y 9. igual que PAPER. 


Condiciones 


1) 


La longitud de a$ no puede ser mayor que 69-ye debido a la instrucción BEEP de la línea 8020. La 
rutina está ideada para escribir una línea centrada en la pantalla. Si se va a utilizar para escribir 
más de 32 caracteres, una línea, es conveniente cambiar la línea 8020 para evitar el centrado. la 
nueva línea debe ser: (8020 LET pos=0), o posición a partir del margen izquierdo de la pantalla 
donde se quiere escribir. 


La rutina es muy lenta a partir de la tercera línea escrita, pero si se quieren escribir con ella más de 
69-yc caracteres se puede cambiar la instrucción BEEP 0.01,yc+lon por BEEP 0.006,30. 


Si ti=pa: Lo que escribe la rutina, es obvio que no se ve. 


Con respecto a ti y pa es conveniente recordar lo que sugiere el manual al respecto (pág. 111), si se 
varía uno y se pretende tener carteles en la pantalla que se puedan leer bien, es conveniente que el 
otro tenga valor 9 que es contraste. 


REM 

REM E] 

REN 

== A IEA MEA 


SUB 6a 


SUB6a Rellena dibujo 


SUBRUTINAS 


00 01 00 00 00 
DOGO. 
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El programa SUB6a tiene seis secuencias de llamada que rellenan seis dibujos que hacen cada 
secuencia en una de sus líneas. La primera secuencia de llamada, líneas 100 a 150, hace un dibujo abierto 
por los lados y lo rellena. El dibujo lo hace la línea 140 y las 120 y 130 asignan valores a todos los 
parámetros, la 150 ejecuta rellena dibujo y el programa continúa en la lina 200 con la segunda secuencia 


de llamada. 


Este proceso es prácticamente idéntico para todas las secuencias menos para la última, la sexta, líneas 
600 a 700, en la que se completa el dibujo después de haber ejecutado rellena dibujo, linea 660, para que 
os sirva de ejemplo de como conseguir partes vacías entre dos líneas. 
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SUBRUTINAS 


SUB6 


SUB6 rellena dibujo 


La rutina SUB6 es una rutina que fue escrita para el programa Tiralíneas y es capaz de rellenar un 
dibujo en la pantalla. Esta es una de las ocasiones en las que uno se da cuenta de una de las limitaciones del 
BASIC por su escasa velocidad y por lo complicado que resulta programar ciertas cosas. Sin embargo hay 
que decir que este tipo de programas no son fáciles por las dificultades que se encuentran para que el 
aparato encuentre eficientemente los límites del dibujo, al menos, en la mayoría de las ocasiones. La rutina 
que os ofrecemos es lenta si tiene que trabajar con toda la pantalla pero rellena bastante bien los dibujos, 
ocupa muy poco espacio y puede ser de utilidad en muchos programas. hemos utilizado un truco muy visible 
para darle velocidad que consiste en limitar la pantalla, ya que de lo contrario, como prueba punto a punto, 
cuando estaba muy lejos del comienzo del punto en que comenzaba a buscar el dibujo podía tardar una hora 
en encontrar su comienzo. Reconocemos que la solución es tan mala como la de traer la montaña en caso de 
que ésta no venga a nosotros, pero cualquier otra solución que se nos ocurrió pasaba por un rutina en código 
máquina y eso era lo que tratábamos de evitar. 


Parámetros 


La rutina tiene siete parámetros. 
ti: Color de la tinta con el que queremos que rellene. 


cti: Variable que se va a sumar a ti en un momento determinado permitiéndonos cambiar el color de la 
tinta mientras está rellenando. 


elx: punto en el eje x donde queremos que comience el relleno en otro color. 

lix: Límite inferior de x en el que queremos que empiece a buscar el dibujo. 

Isx: Límite superior de x donde queremos que deje de rellenar o de buscar el dibujo. 
liy: Límite inferior de y donde queremos que empiece a buscar el dibujo. 

Isy: Límite superior de y donde queremos que deje de rellenar o de buscar el dibujo. 


Límites de los argumentos 


1) ti: Puede variar entre O y 9 como INK 


2) cti: Tiene que cumplirse que ti+eti sea cero o mayor que cero y menor que diez ya que es un color 
y varía como INK. 


3) elx: Si queremos que la opción de la rutina funcione y cambie el color del relleno tenemos que dar 
elx un valor que esté dentro del dibujo. 


SUBRUTINAS 


4) lix: Puede variar entre O y 255, 
5) lsc: Puede variar entre O y 255. 
6) liy: Puede variar entre O y 175. 
7) Ilsy: Puede variar entre O y 175. 


Condiciones 


1) La primera es que haya un dibujo en la pantalla. 


2) La rutina traza una raya entre el primer punto que tenga color de la tinta que encuentre a partir de 
y=liy y el siguiente punto que encuentre en estas condiciones. Empieza a buscar este par de puntos a 
partir del límite inferior de x y deja de buscar a partir del límite superior de x. Dada esta forma de 
rellenar en vertical el rellenado se produce aún en dibujos abiertos por los lados siempre que se 
cumpla la condición de que exista una línea superior y otra inferior. Por la misma razón rellena 
partes de un dibujo cerrado dándole límites de x que estén dentro del dibujo y límite de y que estén 
fuera del mismo. 


3) 1sx menos lix debe ser mayor que 1. 


4) Es muy importante recordar, desde el punto de vista del color, que en el Spectrum los colores 
solamente se pueden cambiar para un cuadrado de 8 x 8 “pixels”, lo cual quiere decir que si pintamos 
un punto de color verde en la pantalla al pintar un punto pegado al anterior y de color rojo, ambos 
tomarán el color rojo, a no ser que el nuevo punto que pintemos esté en otro cuadrado. Este hecho 
influye determinantemente en el relleno con colores ya que si elx, es una posición en medio de un 
cuadrado al cambiar el color la mitad de los cuadros ya pintados de un color pasará a tener el nuevo 
color. 


5) Por otra parte el valor que le damos a la variable eti, que cambia el color de la tinta, se suma al valor 
anterior de ti y por tanto cti puede tener un valor negativo para conseguir colores inferiores al valor 
de ti. Por ejemplo, si hemos comenzado el dibujo con color verde y queremos que cambie a rojo el 
valor de cti debe ser -2. 


6) Para conseguir que la rutina rellene rápidamente es importante acercar los límites lo más posible a la 
figura, pero hay que evitar darle los propios límites de la figura ya que no rellena al no encontrar las 
dos líneas, superior e inferior, que necesita. 


1 REM 1) 
2 REM [SU82" 3050 NEXT t, 
3 REM 9089 FOR gatsl TO Loy 
4 REM 8072 GO TÓ 3090-10 (POINT (5,9)= 
s Rem 0 3177 3.080" 1) 
5 REM 3080 PLOT INK ti;S,t: DRAL INK t 
32000 REM suse 1¡0,9-t:; LET nsad 
5010 REM talmlmicolesidalaa 8090 NEXT 4 
8020 FOR s=lix TO L3x 2100 CET. timti+ctisriszclx) 
038 FOR taLiy TO Ls: 110 Ñ $ 
8048 00 TO s050+104 (POINT (5,t)= 8120 RETURN 
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SINCLAIR, 
SOBRE RUEDAS 


Clive Sinclair no para. Caba- 
llero del Imperio Británico por 
méritos propios, Sir Clive no se 
da por satisfecho y después de 
haber colocado en el mercado más 
de un millón de unidades de su 
Spectrum pretende hacer lo pro- 
pio revolucionando el transporte 
personal. La Compañía Sinclair 
Vehicles Limited ha presentado 
días atrás el vehículo eléctrico 
Sinclair CS. Se trata de un ele- 
gante y manejable monoplaza to- 
talmente incontaminante y con 
una autonomía de hasta 66 kiló- 
metros. El nuevo modelo está ya 
a la venta en el Reino Unido al 
módico precio de 399 libras (unas 
76.800 pesetas) y resulta notoria- 
mente económico en cuanto a su 


conducción pues puede cubrir 
1.600 kilómetros por el precio de 
cinco litros de gasolina. El mane- 
jo no puede ser más sencillo, el 
conductor sólo tiene que pulsar 
un botón para ponerlo en marcha 
y oprimir una palanca para parar 
Durante la noche, se recarga la 
batería mediante un cargador in- 
teligente, de diseño especial, que 
se enchufa a la red. 

Sinclair espera fabricar más 
de cien mil vehículos en 1985 
destinados por igual a los que ha- 
cen cortos viajes de cercanías, al 
ama de casa para sus compras en 


la vecindad y a los jóvenes como 


alternativa más segura a los ve- 
hículos motorizados de dos rue- 
das convencionales. Como puede 
observarse en la fotografia de la 
carrocería, el chasis ofrece avan- 
zadas formas aerodinámicas. Es 
también digno de destacar que el 


ancho que ocupa el CS en una 
carretera no es mayor que el de 
una bicicleta, en tanto que la vis- 
ta del conductor medio se halla al 
mismo nivel que el de un Austin 
Mini. Va totalmente equipado con 
lámparas, faros y, por mor de la 
seguridad, con un interruptor de 
ignición, activado por llave, para 
impedir su uso indebido. Un pe- 
queño microprocesador LED ac- 
tiva también unos testigos que se- 
ñalan el funcionamiento del mo- 
tor, la carga y el estado de la ba- 
tería. 

Sinclair, faltaría más, ha avi- 
sado ya que el CS es sólo el prin- 
cipio de un ambicioso proyecto 
que en la década de los 90 lle- 
nará las carreteras y las calles de 
las ciudades de una completa ga- 
ma de vehículos familiares silen- 
ciosos, económicos y perfecta- 
mente compatibles con el tráfico. 


dl 
Elle lletra 
'ROGRAMAS DIDACTICO TADOS 
¿'OLECCIONABLES PARA Z SPECTRUM 


o pia 


U) 
O 
S 
z 
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Caraador 


A A 
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TUE A 


> 


-ncuesta 1a 


Indice de la cassette 


RRA RA RARE RARA RARA AAA 
Contador= A1INS 


ERARRRARA A RARA RRA RARA RARA 
Contacor=z 52 AINS 


EARAERARARA RE RRA ARA ARA RARE RRA EA 
Contador= 1009 RAINS 


Programa 


Ss 
previamente 


ERERARARA RARA REA AA AAA RARA 
Contador= 143 AINS 


Nombre: I1B25 Prográma 
1234567830 


138 bytes 
borradas previamente 
cuta 


RLALALARARA RE RARA RARA AAA ETA 
Contador= 195 A1ING 


Nombre: I1B2 Programa 


6 
1234567890 
previamente 


EXERRRLEARAEAR RARA RARA RARA AAA 
Contador= 242 A1INS 


Frograma 


Previamente 


RAERARA RARA ARA AA AAA RARA 
Contador= 291 AINS 


Programa 


Previamenta 


HARERAREARA RE AAA RARA RARE RARA 
Contadorz= 341 RINGS 


- INDICE 


RRRRARRA ARA ARA ARA ARA ERA RA 
Contadorz= 481 RINGS 


HAEXARARA RARE ARRE RRA AA 
Contador= 386 AINS 


Nombre: SUBS Programa 
Programa 12345657890 


2 bytes 
radas previamente 


25 bytes PS 
orradas previamente cut 
a 


r 
a 
EARERARARAE RARA REA AAA RARA ARRE 
Contadorz= 527 RING 


HRERHAARRRA RARA ERA RURAL 
Contadorz= 433 AING 
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PROGRAMAS PARA LA ENSEÑANZA BASICA 


AREA DE LENGUAJE 


Formación de plurales, femeninos y bytes de los carácteres gráficos. 


A nivel de E.G.B., el microordenador, en nuestro caso el Spectrum, nos puede ser muy útil a la hora de 
enseñar a los niños, pudiéndose alcanzar los siguientes objetivos: 


1. Adquisición de conocimientos de todas las áreas. 
2. Dominio del proceso de razonamiento para conseguir los conocimientos. 
3. Aprendizaje del manejo y uso del microordenador. 


Estos tres objetivos se van consiguiendo poco a poco mediante sencillos programas, como éstos que 
exponemos a continuación. 


CARGADOR Y DEFINIDOR DE GRAFICOS 


A nuestro juicio, lo primero que debemos solucionar, y más cuando se trata del área de lenguaje, es el 
problema de no tener el Spectrum “ñ”, *N”, “ii”, “UD” ni acentos, asi como tampoco signos de interrogación 
y admiración iniciales ni algún otro signo de uso corriente en nuestro idioma. 

Sería muy sencillo poder contar con estos caracteres. 

Simplemente con definir unos gráficos queda resuelto el problema. 

Aunque en la cinta HORIZONTES hay un programa de manejo muy sencillo para definirlos, damos a 
continuación otra forma práctica para poder escribir correctamente el castellano en el Spectrum. 

Comenzaremos escribiendo en una línea cualquiera, por ejemplo en la 30, un lazo (del 1 al 13, ya que 
13 es el número de gráficos que vamos a definir): 


30 FOR i=1 TO 13 


APLICACIONES SENCILLAS 


Seguidamente pondremos una sentencia READ para que lea cada una de las letras de las que empleare- 
mos en los gráficos: 


38 FOR i=1 TO 13 
-40 READ a$ 

50. FOR j=0 TO 7; READ y 
68 POKE USR a$+j,y 

70 NEXT j: NEXT i 


A continuación, y mediante otro lazo (del O al 7, por ser ocho las cifras que conforman el gráfico 
completo) más la sentencia READ, que tomará los respectivos valores de las líneas con DATA, se asignan 
éstos a cada celula de memoria con POKE USR, cerrándose por último ambos lazos. 


Los DATA que contienen los “bytes” de cada signo van a continuación, según aparece en el listado. 

Ejecutando mediante RUN el programa tendremos inmediatamente los gráficos definidos. 

Con el fin de evitar un error (“out of data”), “fuera de DATA”, que se cometería si se ejecuta más de 
una vez, conviene poner un RESTORE antes. Y para dejarlo dispuesto para una utilización cómoda y 
práctica, añadiremos, por ejemplo, estas otras líneas: 


20 RESTORE 210 BEEP 0.1,0: BEEP 0.1,4: BEEP 0.3,7 


Estos “BEEPs” de la línea 210 producirán una melodía que nos indica que los signos han sido 


definidos. 
Las dos siguientes son para que permanezca en pantalla la muestra de los gráficos que hemos definido: 


ou 

PRINT AT Y 

NT AT 1 Le 
P3C $: 


A; “Tecla e 
cla en GRA 


4 


o y 


ó Ú 
GH dae rio los 18 
o a 


ú y 


Ahora vamos a preparar el programa de manera que nos sirva de cargador del programa principal en el 
que deseamos usar estos gráficos que hemos definido y, a la vez, le incluimos una línea más para poder 
grabarlo y verificarlo. Pondremos LINE 20 para que, cuando se cargue, no lea la orden SAVE. 


10 SAVE *cargador” LINE 5: VERIFY “cargador” 
240 LOAD ”* 


Las comillas seguidas —cadena vacia— nos sirven para cargar cualquier programa en BASIC, y no sólo 
éste que presentamos a continuación. 

Este programa cargador no ocupa memoria, ya que se borra al cargarse el programa principal. En 
cambio, los gráficos definidos sí permanecerán, incluso con NEW, siempre que el final artificial de la 
memoria RAMTOP, esté en su sitio habitual, es decir, delante de los caracteres gráficos definidos por el 
usuario, UDG. 


APLICACIONES SENCILLAS 


',82,16,0,48,16,15,55 
24,566,98,32,74,70, 
O Ramon A PRADA "n",56,0,120,58,68,58, 


"Cargador" LINE 20: VE : "0",3,156,56,68,68,68,5 
"p",0,24,356,36,24,0,60 


E ",0,16,0,158,16,16,16 
: READ E Es 
RE” USA BES Ñ > ,24,4,28,36,28,0,60 
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0660 aGaa 


205 16.56,4,60,58,60 > 'U",5,16,68,63,65,68,5 
c",16,0,16,32,64,63,5 > /.1,0: BEEP .1,4: BEEP 
e",8,16,56,68,120 EYTO AT 3. Bas 
39",40,0,58,68,6 
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O AS 


- Q 
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o] 
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ERINT AT E pe 
N MPSS 


240 LOAD 


“"GODO-40 


(200) 


II. “FORMACION DE PLURALES” 


Es éste un programa tan sencillo y tan apto para iniciar a los niños en el manejo del Spectrum, que no 
nos resistimos a empezar por él. 


Como la instrucción PRINT es la más sencilla, comenzaremos por utilizarla para poner el título en la 
pantalla. Para centrarlo, como tiene en total —entre letras y espacios— 21 caracteres, hallaremos la 
diferencia hasta 31, número del último carácter que cabe en una línea —empezando a contar en O que 
dividiremos entre 2 (31-21=20; 10 / 2=5). El segundo atributo de AT —columna— será, pues, 5. El 
primero puede ser O, para que lo escriba en la primera línea de la pantalla. 

Con el fin de poder incluir este programa posteriormente dentro de otro más amplio comenzaremos a 
numerar a partir de 1000. 


1020 CLS: PRINT AT 0,5; “FORMACION DE PLURALES* 


Lo podemos subrayar mediante esta otra línea: 


1030 PRINT AT 1,4;” (23 caracteres gráficos --ver listado-——,-que 
: añadimos uno al principio y otro al final>” 


Ya tenemos el título. Ahora vamos a recordar cómo se forman los plurales según las reglas gramaticales. 

Preguntamos a los niños, por ejemplo: ““Si tenemos una palabra en singular, ¿qué hay que hacer para 
ponerla en plural?”. 

Casi con toda seguridad nos responderán que añadir una ““s”, aunque es posible que alguno diga que así 
no se hace en todos los casos, pues también se forman los plurales añadiendo “es”. 

Efectivamente, unas palabras se forman con “*s” y otras con “es”. Esto hay que decírselo al ordenador 
con toda claridad, para que no se equivoque. Pondremos, pues, estas dos reglas generales, llamando ss a la 
palabra en singular y ps a la misma palabra en plural. 


APLICACIONES SENCILLAS 


1258 LET p$=s$+”es”: GOTO 1288 
1268- LET p$=s$+"s”: GOTO 1288 
1280 PRINT ,p$ ci 


La línea 1280 nos imprime a partir de la columna 16 la palabra en plural. Para que aparezca la palabra 
en singular pondremos con anterioridad: 


1088 PRINT s$; (El punto y coma es para que luego 
escriba el plural en la misma línea de pantalla»). 


Antes de que se nos olvide añadiremos nosotros que hay palabras que tienen idéntica forma en singular 
y en plural. Por lo tanto hay que hacerle saber al Spectrum este tercer caso: 


1270 LET p$=s$ 


Ya tenemos definidas las tres reglas. Ahora sólo nos falta poner la instrucción correspondiente para 
poder introducir las palabras en singular y, lo que es más importante, señalar con claridad en qué caso o 
casos se ha de aplicar cada una de las tres reglas que hemos definido en las líneas 1250, 1260 y 1270 del 
programa. 


1040 INPUT "Escribe la palabra cuyo plural deseas formar 
[Para acabar= 01 :”";s$ 


Como lo que deseamos, cuando escribimos “0” no es que ponga el plural, sino que acabe la relación, le 
damos ya la orden correspondiente: 


1069 IF s$="0* THEN PRINT TAB 13;*F 1 N”: RUN 


Puede ocurrir que, por equivocación, pulsemos dígitos o ENTER en vez de alguna letra, lo que nos 
daría un error. Para evitarlo, le diremos al ordenador que si pedimos el plural de algún signo o cifra, o si 
pulsamos ENTER solamente, no lo ejecute. Como la “A” es el primer carácter del alfabeto que aparece en 
el Spectrum y los dígitos y ENTER figuran antes, lo que significa en el lenguaje del ordenador que son 


“menores”, escribiremos: 
1070 IF s$<*A” THEN GO TO 1040 


Ahora hemos de pasar ya a concretar cuando se aplica una u otra de las reglas de formación de plurales. 
Para ello necesitamos saber en qué acaban las palabras. Y para saber que letra o letras finalizan tenemos 
que contarlas y decirle al ordenador, por ejemplo: ““Si la última —o últimas letras—... ENTONCES vete 
a »” 


ls Aprovechamos la instrucción LEN y escribimos: 
1050 LET u=LEN s$ 


Es decir, “u” será el número de letras que tiene la palabra en singular; luego la última coincidirá con ese 
número. La penúltima será ““u-1”. Con esto nos basta. 

Ya podemos poner, pues, la primera regla: “Se añade “s”” cuando la palabra en singular acaba en vocal 
no acentuada o en é acentuada”. 


- APLICACIONES SENCILLAS 


1240 IF s$ (u>»="a” OR s$(u>»=*"e” OR s$(u>»="i1” OR s$(u»="0* 
OR s$(u>="u” OR s$(u»="é” THEN GO TO 1268 


* Para facilitar las cosas pondremos con otro u/y otros IF las palabras que no cambien en plural, ya que 
su número es pequeño. Si luego apareciesen más, se añaden a continuación en otra línea similar: 


1098 IF s$*"éxtasis” OR s$="paréntesis ” OR s$="dosis" 
OR s$=ultimátum” OR s$="déficit ” OR s$="superávit* 
THEN GO TO 12708 


Hemos de hacerle saber al ordenador todas las excepciones a las reglas generales siempre antes de la 
línea 1240 del listado ya que, si alguna palabra no está incluida en algún IF, el Spectrum ejecutará la línea 
1250, es decir, añadirá “es” al singular. 

Cuanto más al principio se pongan los IF, mejor (entre las líneas del listado 1081 y 1249). Por eso 
hemos dado un número de líneas bajo a la 3.2 regla, que en realidad es una excepción. 

Las vocales forman sus,respectivos plurales de manera determinada: 


1100 IF sta" THEN LET p$=*aes”: GO TO 1288 
1110 IF s$="e* THEN LET p$="es”: GO TO 1288 

1120 IF s$="i* THEN LET p$=*ies”: GO TO 1288 
1138 IF s$="0"* THEN LET p$=*0es”: GO TO 12808 
1140 IF s$="u* THEN LET p$="úes”: GO TO 1288 


También son excepciones las palabras “papá”, “mamá”, “sofá”, y “chacó”, ya que, al acabar en vocal 
acentuada que no es “e” deberían añadir “es”; por lo tanto hay que especificarlas: 


1150 IF s$="papá” OR s$="mamá” OR s$="sofá” OR s$="chacó" 
THEN GO TO 1288 


Asimismo hay dos palabras (““régimen” y ““carácter”) que cambian el acento al formar el plural. Hay 
que decirselo también al ordenador: 


1160 IF s$=régimen” THEN LET p$=”"regímenes”: GO TO 1280 
1189 IF s$="carácter” THEN LET p$="caracteres”*: GO TO 1288 


Nos quedan por último unas excepciones muy frecuentes, como son las palabras que, por acabar 
66 z” .66._.9> 


en cambian esta letra en “c” y las palabras agudas que, por acabar en “n” o en “s”, llevan tilde o 
acento ortográfico y lo pierden en plural. Todo esto hay que hacérselo saber al ordenador: 


TO 1250 
: GO TO 1250 
: GO TO 12580 
: GO TO 1258 
: GO TO 1258 
: GO TO 1258 


1180 IF s$ <u»="z"* THEN LET s$ e $ y 
1199 IF s$ (u-1)="4” THEN LET 
1200 IF s$ (u-1>)="é” THEN LET 
1210 IF s$ (u-1)="1” THEN LET 
1220 IF s$ (u-1)>=*6* THEN LET 
1230 IF s$ (u-1)=*"ú= THEN LET S$ va 1 


Exe O 


A 


uu In ty 


co=mow 


Para que el Spectrum vaya pidiendo palabras en singular, una a una, es necesario volver al INPUT del 
principio mediante un GO TO: 


APLICACIONES SENCILLAS 


1298 GO TO 1040 


De esta forma tenemos ya completo el programa “FORMACION DE PLURALES”. 

Será conveniente recordar la gran importancia que adquiere la correcta transcripción de las pala- 
bras al escribirlas en singular, ya que, si faltan acentos, se escriben con mayúsculas o se cambia alguna 
letra, el ordenador lo interpretará según se escriba, y, si era alguna excepción, no la considerará como tal. 


MI. “FORMACION DE FEMENINOS” 


Es muy similar al anterior y servirá de complemento al mismo. Por lo tanto seguiremos los mismos 
pasos para su trazado. Utilizaremos las líneas 2000 y siguientes para poder unirlo posteriormente al de 
“Formación de plurales”. 

Comenzaremos con el título, lo mismo que hicimos entonces. 

Tiene un carácter más, pero mantenemos los mismos atributos: 


2020 CLS: PRINT AT 0,5; “FORMACION DE FEMENINOS” 
2038 PRINT AT 1,4;*(24 CARACTERES GRAFICOS  -——VERLISTADO-—>* 


Seguiremos con el INPUT correspondiente y demás instrucciones generales que pusimos en “For- 
mación de plurales” pero cambiando “ss” por “ms” (masculino): 


2040 INPUT *Escribe la palabra cuyo femenino quieres saber. 
para acabar= 0 : “;m$ 

2050 LET u=LEN m$ 

20608 IF m$="0"* THEN PRINT TAB 13;”F I N”: RUN 

2070 IF m$<"A” THEN GO TO 2028 

2080 PRINT m$; P 


Recordemos las reglas de formación de femeninos: 
— Hay algunas palabras que tienen formas distintas para el masculino y para el femenino (hombre/ 
mujer; toro/vaca, etc.) 
Si el masculino acaba en “o”, cambia la “o” en “a”. Lo mismo sucede con algunos que terminan en 
03 » os E 
e” (presidente/presidenta; elefante/elefanta) 

. Si el masculino acaba en consonante, añade “a”. (Al igual que hicimos con los plurales, hay que 
señalar que cuando la vocal de la última sílaba lleva tilde no deberá aparecer ésta en el femenino: 
león/leona; ladrón/ladrona) 

Algunos sustantivos forman su femenino con variadas terminaciones: -esa, -isa, -ina, -iz, etc. 
Muchas palabras permanecen invariables: las que acaban en “a” (homicida, parricida...); algunos 
adjetivos sustantivados (joven, imbécil, etc. y muchos acabados en -ante, -ente, -iente), y diversas 
palabras más, como “reo”, “testigo”, “mártir”, “consorte”, “cónyuge”, etc. 
Debemos situar todos los casos que contradigan las normas generales antes de éstas, que colocaremos al 
final: 


Asi pues, 
antes: 


2090 
2100 


2110 
2128 
2130 
2148 
2150 


2160 
2170 
2180 
2190 
2200 


APLICACIONES SENCILLAS 


IF |m$ (u»="0” OR m$ (u)»="e” THEN LET f$=m$ (1 TO u-1)+*a”: 
GO TO 2396 : 

LET f$=m$+”a”: GO TO 2398 (llamamos ”"m$* al masculino). 
LEt f$=m$ 

PRINT ,f$ 

GO TO 2040 


comencemos a indicarle al Spectrum las excepciones o casos especiales que hemos visto 


IF m$="hombre” OR m$="marido” THEN LET f$="mujer”: 

GO TO 2398 

TF=*"varón” OR m$="macho” THEN LET f$="hembra” : 

GO TO 2398 ' : 

IF m$="toro” OR m$="buey” THEN LET f$="vaca”: GO TO 2398 
m$="caballo” THEN LET f$=yegua”: GO TO 2398 
m$="carnero” THEN LET f$="oveja*: GO TO 2398 

- m$="Pedro” THEN LET f$="Petra”: GO TO 2398 
m$="Jose” OR m$="José” THEN LET f$= *Josefa”: 
TO 2390 ; 
m$="Félix” THEN LET f$="Felisa”: GO TO 2390 

- mP="padre” THEN LET f$="madre”: GO TO 2398 
m$="papá” THEN LET f$="mamá”: GO TO 2398 
m$="yerno” THEN LET f$="nuera”: GO TO 2398 
m$="gallo” THEN LET f$="pallina”*: GO TO 2398 


Si encontramos posteriormente otra palabra con femenino irregular, podemos incluirla entre estas líneas, 
por ejemplo, en 2091, 2092... 2099: 


2210 
2220 
2230 
2249 
2250 
2260 
22708 
2280 


TF m$=*duque” THEN LET f$=-"duquesa”: GO TO 2390 

IF m$="conde” THEN LET fS$="condesa”: GO TO 2390 

IF m$=”"poeta” THEN LETfS$="poetisa”: GO TO 2398 

IF m$="barón” THEN LET f$="baronesa”: GO TO 2398 

IF m$="alcalde” THEN LET f$="alcaldesa”: GO TO 2390 

IF m$="héroe” THEN LET f$="herofna”*: GO TO 2398 

IF m$=*actor* THEN LET f$="actriz”: GO TO 2398 

IF m$="emperador” THEN LET f$="emperatriz”: GO TO 2398 


Tal vez encontremos más palabras que deberían incluirse en esta relación por lo que podemos inter- 
calarlas como explicábamos antes. No obstante advertimos que es indiferente el lugar en que se encuentren 
las excepciones, siempre y cuando vayan antes de las reglas más generales y nos llevan directamente a la 
línea 2390, es decir, a imprimir el femenino. 
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APLICACIONES SENCILLAS 


2290 IF m$=" joven” OR m$="imbécil” OR m$="estudiante” 
OR m$="comandante” OR m$="teniente” OR m$=*docente* 
OR m$=*navegante” THEN GO TO 2388 

2300 IF m$="huésped” OR m$=*"testigo” OR m$="mártir” 
OR m$="consorte” OR m$="cónyuge” THEN GO TO 2380 - 


En estos dos últimos casos el GO TO 2380 nos lleva a la igualdad de fs = ms, es decir, no cambia el 
femenino. 

Una vez incluidas todas las excepciones posibles —repetimos que si aparece alguna más hay que 
situarla en líneas. anteriores con el GO TO correspondiente para que salte a una de las reglas generales o a 
la impresión directamente— podemos añadir la última norma relativa a los acentos en palabras agudas, que 
lo pierden al convertirse en llanas cuando pasan a femenino: 


2310 IF m$tu-1>="4* THEN LET m$cu- 1 : GO TO 23708 
2320 IF m$tu-1>="é” THEN LET : GO TO 2370 
2330 1F m$Cu-1>)="1” THEN LET al 1 : GO TO 2370 
2340 IF m$Cu-1>="6* THEN LET : GO TO 2370 
2350 IF m$Cu-1>="6” THEN LET mSCu-1 : GO TO 2378 


Ya tenemos el programa concluido. Puede servir como juego invitar a los niños a que le pregunten al 
Spectrum palabras, tanto para formar plurales como femeninos y, si se equivoca el ordenador, ganan ellos. 
Entonces, haciendo BREAK se pasa al listado y se incluye con el IF correspondiente la excepción. 
Advertencia: No se permitirá hacer trampas pidiéndole femeninos o plurales de palabras que no los tengan. 

Con las siguientes líneas al comienzo del programa, los podemos unir formando un programa único: 
(FORMACION DE PLURALES Y DE FEMENINOS). Como todo él ocupa poca memoria sirve para el 
SPECTRUM de 16k. 


2 REM *femplu” 
1208 CLS: INK 0: BORDER 6: PAPER 6 
138 INK 2: PRINT AT 0,6;”FEMENINOS Y PLURALES*: INK 7 
140 INK 4: PRINT AT 1,5;” (22 caracteres graficos --ver listado) 
150 INK 0: PRINT AT 4,1;*Por favor; no hagas trampas es-* 
160 PRINT AT 6,0;"escribiendo palabras que no tengan' 
170 PRINT AT 8,0;*"femenino o plural, segun el caso.” 
180 PRINT INK 1; AT 16,4,”Para FEMENINOS, pulsa **f”* 
199 PRINT INK 2; AT 18, 4;”"Para PLURALES, pulsa **p”** 
200 IF INKEYS$="” THEN GO TO 208 
210 IF INKEYS$="p"” THEN GO TO 1000 
220 IF INKEY$="4” THEN GO TO 2008 
230 IF INKEYS<>”p” OR INKEYS$<>”f” THEN GO TO 208 


Y, para el usuario curioso, queda un campo abierto para incluir mejoras de todo tipo (sonido para que 
suenen unos “BEEPs” al escribir las palabras, alguna melodía cuando completa los femeninos o plurales; color 
distinto para los masculinos y singulares que para femeninos y plurales, etc., etc.). El BASIC elemental que 
hemos empleado hace posible que incluso los principiantes puedan introducir muchas mejoras. 
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INICIACIÓN AL BASIC 


IB 24 a IB 29 


Iniciación al BASIC 


Como muchos de vosotros habéis comenzado a leer la revista a partir del tercer número, trataremos de 
contaros la intención que nos guía al hacer esta serie de programas. Estos programas han sido imaginados 
para que el usuario juegue con ellos tratando de averiguar la respuesta del Spectrum. 

Nuestra idea es que el lector comience por leer someramente el artículo de la revista y, a continuación, y 
con la revista delante carge el primer programa de la serie, escriba LIST y ENTER y vuelva a leer lo que 
sobre el programa está escrito en la revista. A continuación, pruebe a darle 2 ó 3 respuestas normales y 
otras 2 Ó 3 raras para intentar que cometa algún error. Por último, creemos que la mejor manera de aprender 
es tratar de variar las líneas programadas por nosotros para, finalmente, intentar hacer un programa similar. 

De esta manera creemos que el lector no sólo aprende BASIC sino también muchas particularidades del 
aparato que maneja, que a la hora de hacer un programa son extraordinariamente útiles. 

En este número de la revista hablaremos de operadores distintos de suma, resta, multiplicación y 
división. 

En el primer programa, el IB 24, utilizaremos el signo de potenciación, es decir, el signo que le indica el 
Spectrum que eleve un número a una potencia dada. El problema es simple y esperamos que no plantee 
problemas para nadie. 


0 REM IBz4=0tros operadores; 
potencias Ñ 
20 PRINT "Calculo a elevado a 


30 INPUT "a=";ja'"b=",b ] 
40 tb 
R T a; ' alevado a '"¡b""es 


e a ¿€ 
9 0 TO 30 


La línea 10 empieza por un REM, que, como ya hemos comentado, sirve para que todo lo que se escriba 
en esta línea detrás de él no sea tenido en cuenta por el Spectrum. A continuación, línea 20, hay un PRINT 
con una frase entre comillas que el ZX escribirá tal cual, en la pantalla. Esta línea podría haber sido escrita 
así: 20 LET as = “Calculo a elevado a b”:PRINT as” con esto queremos indicar que el aparato entiende lo 
que va entre comillas como si fuese una variable alfanumérica. 


INICIACION AL B AL BASIC 


Detrás de las comillas que cierran la cadena de caracteres hay dos comillas simples, o tildes, es decir, 
SYMBOL SHIFT 7, que indican al Spectrum que salte dos líneas. Hay que tener en cuenta que esta opción 
del PRINT ordena al Spectrum que salte a la línea siguiente y no que deje una línea en blanco, y esta 
precisión es importante ya que PRINT “a” ” “a” escribirá las dos a en líneas sucesivas y no dejará una 
línea en blanco entre ellas. Por esta razón . do acentos detrás de las comillas: el primero obliga al ZX a 
saltar a la línea siguiente y el segundo le hace dejar una línea en blanco. 

La línea 30 lleva un INPUT doble que, como ya hemos comentado, permite mantener las preguntas y 
las respuestas en la pantalla hasta que se escribe la última. Como en los PRINT, lo que va escrito entre 
comillas se escribe en la pantalla, pero en los INPUT se escribe en la parte inferior reservada para que el 
aparato nos indique los errores y para los INPUT. En el Spectrum es útil considerar a los INPUT como si 
fuesen un PRINT del aparato hacia nosotros, ya que para escribir las preguntas de los INPUT se pueden 
utilizar todas las opciones del PRINT. Esto, que no sucede en todos los BASIC, és una posibilidad muy útil 
en el de SINCLER. 

La línea 40 tiene el operador Í, que indica al SS pectrim que eleve a a la potencia b, es decir, multiplicar 
a por a el número de veces indicado por b. Esta función matemática es ligeramente particular en el BASIC 
del Spectrum y aconsejamos al lector que piense utilizarla con asiduidad que lea detenidamente el manual 
del aparato en lo que a ella se refiere, pág. 65, para evitarse errores extraños. 

La línea 50 contiene un PRINT que va seguido de una a que el ZX tomará como el nombre de una 
variable y por ello buscará en la memoria su valor y lo escribirá en la pantalla. Detrás de la a hay un punto 
y coma que indica al aparato que escriba en el siguiente espacio de la pantalla. Al punto y coma le sigue una 
cadena entre comillas que se escribirá en la pantalla, pero sin comillas. El espacio que lleva delante la frase 
“elevado a”, así como el que lleva detrás, serán escritos en la pantalla como otro carácter más, ya que si no 
se hubiesen puesto, el aparato escribiría inmediatamente detrás del valor de la variable a. 

Detrás de la cadena de caracteres hay otro punto y coma, por lo que el Spectrum continúa, si 
puede, escribiendo en la misma línea. A continuación encuentra la letra b que interpreta como el 
nombre de otra variable y la busca en la memoria para escribir su valor en la pantalla. Continúa, y detrás de 
la b se encuentra una tilde que le obliga a saltar a la línea siguiente. Las comillas que vienen a continuación 
le hacen considerar que después de ellas viene un valor alfanumérico y que hay que escribirlo en la pantalla 
exactamente igual, y es lo que hace hasta que se encuentra con el segundo par de comillas que le indica que 
se terminó la cadena. A continuación, el punto y coma le vuelve a decir que hay que escribir algo más en 
esta línea y este algo más es el valor de la variable c. 

Por último, en la línea 60, hay un GO TO, “ve a”, que obliga al Spectrum a ir a la línea 30 y continuar 

* ejecutando el programa a partir de esta línea. 

Es conveniente, para tener una idea clara de lo que hace un GO TO, cambiar el número de línea al 
que va dirigido y ver qué ocurre porque, sobre todo al principio, uno se suele armar un pequeño lío cuando 
pone en un programa más de dos o tres GO TO. 


IB25 


OLA As 


INICIACIÓN AL BASIC 


El programa 1B25 es prácticamente idéntico al IB24 salvo en que utiliza la función SQR (square = 
cuadrado; root = raíz) para calcular la raíz cuadrada de a. Como sólo necesita un número para hallar su raíz 
cuadrada, el INPUT de la línea 30 es simple y no doble como en 1B24, e igualmente el PRINT de la línea 
S0. El resto ya lo hemos comentado. 


0 REM IB 
30 PAINT Al 
neperiano y 
30 INPUT " 
¿LN 10 
logaritmo neperia 
Ogaritmo decimal 


e 


r fue Un matemat 

ico escoce invento Los loga 

ritmos nat 5 0 neperianos." 
$0 PRIN 


El programa IB 26 es también casi idéntico al IB 24 y las diferencias que hay son más de tipo matemá- 
tico que de BASIC. Se llama logaritmo en base a de un número n al exponente x al que es preciso elevar la 
base a para obtener n. El log n = x y por definición n = a*. Si la base es mayor de 1 se cumplen las 
siguientes características: 


El logaritmo de la base a es igual a 1. 

El logaritmo de 1 es cero. 

El logaritmo de O es — infinito. 

Los números negativos no tienen logaritmo. 

Los números mayores que 1 tienen logaritmo positivo. 
Los números menores que 1 tienen logaritmo negativo. 


Las dos bases más utilizadas son la base 10 y la base e. Los logaritmos en base “e” se llaman naturales 
o neperianos y los en base “10” decimales. Los logaritmos son muy útiles porque si los cálculos numéricos se 
hacen utilizando sus logaritmos, las multiplicaciones, divisiones, elevaciones a potencias y la extracción de 
raíces se reducen a sumas, restas, multiplicaciones y divisiones. Este hecho, que parece poco transcendente 
cuando se utiliza un computador, es importante en lo que se refiere a simplicidad de operaciones, tiempo de 
ejecución de las mismas y resolución de ecuaciones exponenciales. Las reglas de operación logarítmica son: 

1) El logaritmo de a por b es igual a la suma de los logaritmos de ambos números: log (ax*b) = 
log a + log b. 

2) El logaritmo de a/b es igual al logaritmo del dividendo a menos el logaritmo del divisor b: log 
(a/b) = log a — log b. 

3) El logaritmo de a elevado a b es igual a b por el logaritmo de a: at = bxlog a. 

4) El logaritmo de la raiz b de a es igual al logaritmo del radicando a dividido por el índice de la raíz 
b: log Y a = (log a)/b. 

Un ejemplo de estas reglas se puede observar en el programa 1B28 que esperamos sirva de recordatorio 
a los que han dejado hace años de relacionarse directamente con las matemáticas. 

Los logaritmos decimales se expresan por log y los neperianos o naturales por In. Por otra parte, y 
dadas estas reglas, el logaritmo decimal de un número es su logaritmo neperiano dividido por el logaritmo 
neperiano de 10. 


Log a= In a/In 10 


En la línea 90 del programa 1B26 hay otro ejemplo de la opción PRINT”. Como ya hemos comentado, 
son necesarios dos acentos para que el Spectrum salte una línea porque la tilde sólo ordena saltar a la línea 
siguiente y, por tanto, para que salte n líneas habrá que poner n + 1 acentos o tildes después de una 
instrucción PRINT. 
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El programa 1B27 trata de ser un ejemplo que ilustra las propiedades de los logaritmos cuando la base 
es mayor de la unidad, como en los dos casos más frecuentes de los logarismos decimales y neperianos. El 
programa, por otra parte, sólo utiliza PRINT y las dos funciones LN, logaritmo neperiano y EXP que 
devuelve la potencia de e del número que esté detrás de EXP. El programa en su línea 50 tiene una cadena 
de caracteres que hemos dividido en dos únicamente por analogía con el resto de las líneas ya que no es 
necesario dividirla. El caso de LN O es particular ya que el Spectrum no puede contestarnos ** — infinito” 
ya que no puede calcualr este número y por tanto nos daría un error. 
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El programa 1B28 sirve para ilustrar cómo se opera con logaritmos y es muy parecido en su 
construcción a los anteriores, con la única diferencia de que hemos incluido algunas opciones de modifi- 
cación de los PRINT y de los INPUT para que os acostumbréis a verlas, ya que próximamente las 
incluiremos en esta serie. En sucesivos números de la revista las explicaremos con más detalle pero ahora 
observaremos a grandes rasgos, que efecto tienen en estas líneas. 

La línea 20 lleva inmediatamente detrás del PRINT un INK 2, tinta 2, que hará que el aparato escriba 
con tinta roja la cadena de caracteres que viene a continuación. 

La linea siguiente, linea 30, lleva detrás de INPUT otro INK que obligará al Spectrum a escribir con 
color azul la pregunta que sigue al punto y coma, que es “un número:”, para continuar con otro punto y 
coma delante del nombre de la variable a, que recibirá la contestación que nosotros demos al INPUT. Si- 
gue a la a un acento que obligara a que la otra pregunta se haga en la linea siguiente. A continuación va 
INK 3, que hace que la frase “otro número” sea escrita con color púrpura. Detrás de la frase y el punto y 
coma, que hará que el Spectrum espere la respuesta iamediatamente a continuación escribiendo el cursor 
parpadeante. nos encontramos con el nombre de la segunda variable b a la que será asignado el valor que 
respondamos a la pregunta: “otro número”. Es importante destacar que si no se hubiese escrito el segundo 
INK, la segunda pregunta se escribiría con tinta negra y esta es una diferencia con el PRINT que las 
escribiría ambas en azul. 

La linea 40 lleva un BRIGHT. brillo, que sustituye al INK de la anterior. El brillo sólo tiene dos 
posiciones, encendido y apagado, y, por tanto, BRIGHT sólo puede ser O ó 1. En realidad puede tomar 
valores entre —0.5 y +1.5: por encima de 0.5 el brillo se conceptúa encendido y por debajo apagado. 

El resto de las opciones INK y BRIGHT son semejantes a las de estas lineas y, como siempre, os 
aconsejamos que las variéis para ver que sucede. 
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El siguiente programa 1B29 sirve para poner un ejemplo del cálculo de los antilogaritmos de los logarit- 
mos decimal y neperiano de a. La función EXP a devuelve el número e elevado a el número a y por tanto 
siendo a el In de n, EXP a es igual a n. 


a= Inn; n=EXPa 


Para calcular los antilogaritmos cuando a es el logaritmo decimal de n se utiliza, líne 50, el operador | y 
asi 101 es igual a n. 


SUBRUTINAS 


SUBRUTINAS EN BASIC 


La cassette contiene 2 subrutinas en BASIC, SUB7 y SUB8, así como dos ejemplos de como se utilizan 
SUB7a y SUB8a. 

A las rutinas hay que añadirles una secuencia de llamada para que puedan funcionar. La secuencia de 
llamada tiene que contener todos los parámetros que necesita, ya que, de lo contrario, se provocará un error. 
Los programas sirven como ejemplo de la utilización de las rutinas, y cada secuencia de llamada es un 
ejemplo de su funcionamiento. 

Los ejemplos que ponemos no pretenden ser exaustivos sino solamente un caso particular de la utili- 
zación de la rutina en un problema concreto. 


SUB 7 


SUB7 Escribe 3 


Esta rutina fue creada para el programa Monte y es la tercera de las muestras que sirve para escribir 
frases en la pantalla es ligeramente más larga que escribe 1 y bastante más que escribe 2; sin embargo, 
escribe 3 es interesante por varios motivos. En primer lugar, se puede escribir más de 1 línea en la pantalla 
con una sola secuencia de llamada, en realidad se puede escribir el número de líneas que se quiera. Por otra 
parte, la rutina es bastante rápida y eliminando el BEEP de sus líneas 8080 y 8090 aún lo es más, por lo 
que puede ser útil para muchas ocasiones en las que hay que escribir datos en la pantalla forzando al que los 
leen a prestar un poco de atención. 


Parámetros 


Una rutina es un fragmento de un programa que es autosuficiente. 
Como escribe 3 puede escribir más de una línea en la pantalla, tiene un parámetro más que escribe 1 y 
escribe 2, que es el número de líneas que tiene que escribir. 


as(1): Es la variable alfanumérica donde está la cadena de caracteres. 

yc: Es la línea de la pantalla donde queremos que escribe 3 empiece a escribir. 

nl: Es el número de líneas que queremos que la rutina escriba en la pantalla. 

ti: Color de la tinta con la que se escribirá la cadena de caracteres contenida en as( ). 
pa: Color del papel que tendrá la o las líneas que se escriban con la rutina. 


SUBRUTINAS 


SsuB? 
PARAMETROS 


Límites de los argumentos 


as(1): En esta rutina la variable as está dimensionada y por tanto su longitud mínima es O y su longitud 
máxima será la longitud que nosotros le hayamos dado. 

ye: Como en las otras rutinas que escriben en la pantalla, yc puede variar entre O y 21 ya que estas son 
las líneas de la pantalla. Hay que hacer notar que si se le pide que escriba a partir de la línea 21, 2 
lineas, la segunda, que no podría ser escrita ya que no hay nada más que 22 líneas en la pantalla, se 
escribe en la línea O. Hay también que puntualizar que está previsto que se le dé un número de línea 
superior a 21 ya que la línea 8050 hace que la rutina escriba a partir de la línea O si el número que le 
hemos dado a ye es mayor de 21, o menor de cero. 

nl: El número de líneas a escribir puede estar entre O y el que se quiera. 

ti: El color de la tinta, como siempre, puede variar entre O y 9. 

pa: Asimismo el color del papel también puede variar entre O y 9. 


Condiciones 


1) La longitud de as(1) debe ser 2 caracteres mayor que el número de líneas que queremos escribir. 
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SUBRUTINAS 


SUB 7a 


El programa SUB7a contiene cuatro secuencias de llamada que pretenden ser otros tantos ejemplos 
concretos del empleo de la rutina. La primera secuencia que va de la linea 10 a la línea 80 escribe una 
sencilla línea en la pantalla. La última que va de la 300 a la 420 escribe 24 líneas. 

La línea 30 de la primera secuencia de llamada dimensiona una cadena de caracteres de una sola dimen- 
sión con 704 caracteres, una pantalla. Aunque para escribir la frase que se asignará a as(1) es una cadena 
demasiado grande, la hemos dimensionado de este tamaño para que sirva para la siguiente secuencia de 
llamada y para que comprobéis que aunque as(1) tiene los 704 caracteres, ya que al dimensionar una 
variables alfanumérica, ésta se crea con todos los caracteres como blancos, solamente se escriben el número 
de líneas especificado por nl, que en este caso es 1. 

El resto de la secuencia de llamada consiste en dar valores (argumentos) a los parámetros y en llamar a 
la rutina con el GOSUB de la línea 80. 


La segunda y tercera secuencia de llamada son iguales a la primera. La cuarta es un poco particular, ya 
que escribe 24 líneas, y para ellas hemos tenido que recurrir a sumar la variable as(1) de la línea 220. Para 
hacerlo hemos comenzado por crear una cadena de 256 caracteres en bs(1), línea 330, a la que le hemos 
asignado el valor de as(1), línea 340. A continuación, línea 350, volvemos a dimensionar as(1) pero esta vez 
con 769 caracteres, las 24 líneas más los dos caracteres para que el as(1, s + 2) de la línea 8080 no 
provoque un error. Las tres líneas siguientes, 360, 370 y 380, asignan a as(1) tres copias de bs(1) para com- 
pletar las 24 líneas necesarias. La secuencia termina dando los valores a yc, ti, pa y nl y ejecutando la rutina. 
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SUBRUTINAS 


SUB8 Marca-ejes 


La rutina marca-ejes está basada en la que dividia los ejes de coordenadas en el programa coordenadas 
pero los que tengáis esa revista podréis apreciar que está muy reformada. Aparte de su utilidad inicial para 
marcar eje de coordenadas la rutina tiene otras muchas aplicaciones como muestra SUB8a. 

Aunque SUBS es corta, solamente tiene tres líneas, creemos que es muy potente y, desde luego, es algo 
complicada. Para poder trazar marcas y líneas en los dos ejes hemos recurrido al empleo de operadores de 
relación como condicionales. 


Parámetros 


La rutina tiene diez parámetros. 

dx: Distancia del eje x a la que queremos que comience a trazar líneas. 
dy: Distancia del eje y a la que queremos que comience a trazar líneas. 
Ix: Longitud de la línea trazada en el eje x. 

ly: Longitud de la línea trazada en el eje y. 

sep: Separación entre las lineas trazadas. 

ej: Eje en el que tiene que dibujar, O en el x y 1 en el y. 

ini: Posición desde donde tiene que empezar a trazar las lineas. 

fin: Posición desde donde tiene que dejar de dibujar. 

ti: Color de la tinta. 

pa: Color del papel. 


Límites de los argumentos 


Como veremos en las condiciones de la rutina, los limites de los argumentos, sobre todo sep, dx, dy, lx, 
ly, ini y fin, tienen poco valor por ser muy dependientes entre si. Sin embargo, los ponemos con el fin de 
guardar una homogeneidad en la descripción de las rutinas. 


dx: Puede variar entre O y 255. 

dy: Puede variar entre O y 175. 

Ix: Puede variar entre O y 255. 

ly: Puede variar entre O y 175. 

sep: Puede variar entre O y 255. 

ej: Tiene que ser 0 ó 1. 

ini: Puede variar entre O y 175 ó 255 dependiendo del eje. 
fin: Puede variar entre O y 175 ó6 255 dependiendo del eje. 
ti: Puede variar entre O y 9. 

pa: Puede variar entre O y 9. 


Condiciones 


Es muy importante para poder utilizar esta rutina comprender cómo funciona. La rutina desde ini hasta 


SUBRUTINAS 


fin a distancia de sep dibuja líneas rectas de longitud lx o ly que empezarán a una distancia dx o dy del eje 
donde no se dibuja. 


a) Condiciones generales 
1) sep no puede ser cero, ya que al ser sep el “STEP” del lazo, la rutina no terminaría nunca. 


b) o AS o marcas en el eje y: la variable eje tiene que ser 0. A fin — ini le llamamos 
ele ; 


dx: es la distancia a una línea imaginaria definida por PLOT 0,0; DRAW 0,175. 
dx + Ix< = 255 y dx + Ix> =0 

dy =10<=175 y dy=10<=0 

sep< = 174 y sep>0 

sep + 10 =< 174 y sep + 10> 0 

sep + dy + 10 < 174 y sep + dy + 1>0 


Líneas verticales o marcas en el eje x: la variable ej tiene que ser 1. 10 = fin-ini. 


dy: es la distancia a una línea imaginaria definida por PLOT 0,0: DRAW 255,0. 
dy + ly< = 175 y dy + ly> =0 

dx + 10 < = 255 y dx+ 10>=0 

sep< = 254 y sep>0 

sep + 10 = < 254 y sep + 10 > 0 

sep + dx + 10 < 254 y sep + dy + 10>0 


5000 
3020 
3020 
38030 
ES a 
ej=1 
3040 
3050 


El programa SUB8a contiene cuatro secuencias de llamada que permiten apreciar cómo se puede 
utilizar SUB8. La primera secuencia de llamada, líneas 10 a 100, nos permite cuadricular la pantalla. Las 
líneas 10 a 70 dan valores a los parámetros para que la línea 80, asignando a ej el valor 0, ejecute marca- 
ejes que dibujará líneas horizontales en la pantalla. La línea 90 sirve para asignar nuevos valores a ini y fin. 
En realidad ini, en este caso no tendría que ser cambiada, ya que sigue siendo O y este valor ya se le había 
dado en la línea 40; si la hemos incluido en la línea 90 es por homogeneidad pero se puede suprimir. La 
línea 100 asigna a ej el valor 1 y llama a marca-ejes, con GOSUB 8000. 

La secuencia de llamada 2 es un lazo que dibuja en la pantalla aprovechando parte de los argumentos de 
la secuencia de llamada anterior. En realidad el lazo llama tres veces a marca-ejes en cada ejecución en las 
líneas 140, 160 y 180. En la primera cambia los colores, y en las otras dos dibuja en ambos ejes. La 
secuencia de llamada hace un dibujo en la pantalla debido, creemos, a la no coincidencia de los cuadrados 
que forman las líneas con los cuadrados de “pixels” que pueden cambiar de color. La línea 280 tiene un 
operador de relación condicional que evita el error que se provocaría si BORDER se hiciera igual a8 049. 

La tercera y cuarta secuencias de llamada dibujan dos barras cuadriculadas en la pantalla y es un 


SUBRUTINAS 


: j 


+ 


DTO 


Y 
DZ”U-UTNTDD 


ul 
Ñ 


ejemplo de la posibilidad de incluir esta rutina al programa barras para diferenciar las barras por su 
cuadrícula. Lo único que hacen es asignar valores a los parámetros y llamar a la rutina. 

La quinta secuencia de llamada comienza por borrar la pantalla, línea 460, para, a continuación, dibujar 
unos ejes de coordenadas en el primer cuadrante y, utilizando marca-ejes, marcarlos. Es interesante destacar 
que para marcar el eje x, la variable ej tiene que ser uno, ya que es necesario dibujar líneas verticales en la 
pantalla. En este caso, ini y fin especifican la longitud de los ejes que hay que marcar, dx y dy la distancia 
de cada eje a la posición 0,0 de la pantalla, es decir, su vértice inferior izquierdo, Ix y ly el tamaño de las 
marcas en ambos ejes, sep la separación entre las divisiones y, por fin, ej es 1 para marcar el eje x y cero 
para marcar el eje y. 
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2.Por que tienes ese ordenador 
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4,1,-Tiene +++ inst. por tecia 
vulo datosa79 


5.2.-Progranas en BASIC 
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Indice de la cassette 


RARA RARA RARA RRA AAA 
Contador= 5 RA1 N? 


Programa 


= 6761 butes 
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EXRAARA RAR RRA RE ARA RARA RRA AAA 
Contador= 52 Al N? 


Programa 
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Array de bytes 

Longitud= 8 

Dirección de comienzo= 65268 
Dirección final= 65366 


ooru 


EXERARAL ARA RARA ARA ARA RRA 
Contador= 336 Al N? 


Programa 


Programa= 1526 bytes 
Variables borradas previamente 
No se ejecuta 


APLICACIONES SENCILLAS 


Abaco 


INTRODUCCION 


La opinión más generalizada es que el ábaco procede de Oriente, de donde pasó a Grecia. Las primeras noticias es- 
critas que tenemos de este instrumento proceden de Pitágoras, que ya a finales del siglo IV antes de J.C. habla de cal- 
culadoras orientales que borraban sobre el ábaco cifras colocadas en columnas. 


El ábaco es un instrumento de cálculo que consiste en una tabla que tiene nueve barras verticales en las que se inser- 
tan bolas. Se utilizan nueve bolas que representan los números del 1 al 9, ya que el Y se representa por la ausencia de 
bolas en esa barra. 


Nuestro programa pretende enseñar a utilizar este antiguo instrumento tanto para representar números como para 
comprobar si sabemos representarlos. 


En esta primera parte os incluimos dos versiones del programa que hace que el Spectrum represente números en el 
ábaco. La necesidad de las dos versiones es debida a que el programa, aun dividido a la mitad no entra en el 16k y por 
ello hemos tenido que suprimirle todo lo que era poco importante para que los poseedores del Spectrum reducido 
puedan cargarlo. La versión para el 16k se llama ábaco16k, y la del 48 y del plus se llama ábaco 91. El W1 se debe a 
que en el próximo número publicaremos la parte que permite representar en el ábaco un número que, una vez escrito 
en la pantalla, el Spectrum comprueba si está bien representado. 


Ambos programas se cargan con LOAD y se ejecutan con RUN. 


EXPLICACION DEL PROGRAMA 


Como siempre, nuestro programa pretende estar estructurado y permite múltiples variaciones. Consta de las si- 
guientes rutinas: 


1) CARACTERES CASTELLANO, PALO Y BOLA: 


Son los caracteres gráficos que nos.permitirán representar las barras y las bolas. 


2) PRINCIPAL OPCION 1: 


Esta rutina dirige el funcionamiento del programa y pregunta el número que queremos representar en el ábaco. Se 
llama opción 1 porque en el programa siguiente tiene que ser modificada para utilizar la opción 2. 


APLICACIONES SENCILLAS 


3) HISTORIETA: 


Gracias a la utilización de la rutina escribe 3, esta rutina escribe en la pantalla la historia del ábacao. Como podéis 
apreciar en el listado, esta historia es muy larga y se escribe con una sola llamada a escribe 3. Tenemos que pediros 
perdón porque en esta primera parte os obligamos a aguantar toda la historia para poder representar números en el 
ábaco a los poseedores del 48k y Plus, debido a la tendencia que tenemos todos a pasar directamente a jugar. Pero, 
como la susodicha historia es muy larga en la versión completa del programa, le pondremos una opción que os per- 
mita omitir esta parte. Por ahora, quien no desee leer, debe utilizar la versión del 16k o bien detener el aparato con 
BREAK, cuando empiece escribir la historia, escribir GOTO 339 y apretar ENTER. 


4) CALCULOS: 


Utiliza una matriz con caracteres para contener la información necesaria para poner la bolas correctamente en el 
ábaco. Esta matriz, m$ (?, ?), contiene la posición de las bolas una vez ejecutada, ver Fig.1, y se borra cada vez que se 
representa en el ábaco un número nuevo. 
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5) BORRA LA MATRIZ: 

Dimensiona la matriz m$ (?, ?). Cuando se dimensiona una matriz de caracteres, en el Basic de Sincler, todos sus 
elementos toman el valor ASCII (American Standard Code for Interchange of Information = Código Standard Ameri- 
cano para el Intercambio de Información) 32, que es el espacio en blanco. Debido a esta característica de este Basic, 
para borrar una matriz basta con dimensionarla de nuevo. 


6) PINTA LAS BOLAS 1: 


Pinta una bola en cada posición donde la matriz m$ (?, ?) la tenga. 


7) PINTA EL ÁBACO 


Dibuja el ábaco y los números que nos ayudan en su funcionamiento. 


8) VIGILA NUMERO: 


Vigila que el número se pueda representar. 


APLICACIONES SENCILLAS 


9) SUB7 ESCRIBE 3: 


Es la rutina escribe 3 del número 6 de la revista ligeramente modificada. 


10) AMAPOLA: 


Aunque es seguro que a cualquiera que entienda algo de música nuestro intento de imitar la canción le parecerá ho- 
rrible, esta rutina trata de imitar la canción “Amapola”. Nos agradaría muchísimo que cualquier lector cuyo oído se 
sienta ofendido nos la corrija. 


3>>=%=>=>= 


11) RECORRIDO BOLA: 


Esta rutina hace que la bola salga del hueco en la base del ábaco y la obliga a recorrer la pantalla hasta su correcta 
posición.en la barra adecuada. 


JDDOOO O 


EXPLICACION DE LAS RUTINAS 
CARACTERES DE CASTELLANO, PALO Y BOLA 


A continuación, las líneas 189, 199 y 209 contienen tres DATA con 8 ceros cada uno, que permiten separar los ca- 
racteres gráficos propios del ábaco de los de los signos del castellano. Por último, las líneas 219 y 220, contienen los 
DATA que van a formar los caracteres gráficos utilizados para pintar las bolas y las barras. 


Como todos sabéis, el Spectrum utiliza para pintar los caracteres en la pantalla 8 bytes de 8 bits por carácter, de tal 
manera que resulta un cuadrado de 64 “pixels” o puntos, que pueden estar encendidos, en cuyo caso son negros, O 
apagados, y entonces son de color del fondo (color del papel) y no se ven. Los bytes que el Spectrum tomo para dibu- 
jar cada carácter están grabados en la memoria ROM, pero la dirección de la ROM donde están estos bytes está 
guarda en RAM y el Spectrum la toma de la memoria RAM cada vez que tiene que escribir un carácter. Este hecho es 
muy importante porque no permite cambiar esta dirección y obligar al aparato a tomar los bytes de donde nosotros 
deseemos con lo que se pueden cambiar las formas de los caracteres o utilizar todo el teclado como caracteres gráfi- 
cos. 


Las líneas 230 a 259 cargan estos caracteres gráficos en el lugar oportuno. Para ello se utiliza un lazo que ya he- 
mos visto otras veces que lee los DATA y los carga desde USR “a” hasta USR “n” +7. Aparentemente es un poco 
raro el que se utilice USR “a” 1 pero tenéis que tener en cuenta que, para el Spectrum, USR “a” es un número 1 y este 
número es la posición en la memoria RAM donde éstá el carácter gráfico a. Para comprobarlo podéis escribir PRINT 
USR “a” y veréis que el aparato os escribe un número y este número lo toma el Spectrum de una región de la memo- 
ria RAM, llamada área de las variables del sistema, que almacena los parámetros de muchas de las rutinas que utiliza 
el aparato para funcionar, y que están grabadas en ROM por Sincler. Una de estas variables se llama UDG (User = 
usuario, Defined = definidos, Graphics = gráficos) y contiene la dirección de comienzo, en la memoria RAM, de los 
bytes que constituyen los caracteres gráficos definibles por el usuario. 


- APLICACIONES SENCILLAS 


PRINCIPAL OPCION 1 


Esta rutina, que dirige el programa, comienza en la línea 320 llamando a la rutina que pone a cero la matriz di- 
mencionándola, líneas 3194 a 3139. La matriz que hemos utilizado tiene 9 x 9 elementos que nos permiten repre- 
sentar 9 barras de 9 bolas cada una. A continuación ejecuta la rutina HISTORIETA, que cuenta algunas cosas sobre el 
ábaco. En esta misma línea 329 el programa continúa homogeneizando el color de la pantalla al amarillo ejecutando 
BORDER 6: PAPER 6: INK 9. El CLS (clear screen = limpia pantalla) permite cambiar el color del papel a toda la 
pantalla, que de otra manera sería cambiado únicamente a medida que fuésemos escribiendo en ella. La línea siguien- 
te, 330, contiene un INPUT que nos pide el número que queremos representar en el ábaco. Para permitir la siguiente, 
340, evitar dar a n$ un valor nulo apretando ENTER, ya que se provocaría un error. Un INPUT seguido de una va- 
riable alfanumérica, en este caso n$, nos permite asignar a una variable un valor nulo, es decir, ningún valor. Como la 
variable tiene que tomar algún valor, sea este el que sea, el Spectrum le asigna el valor ASCII, que tiene como código 
el cero. ¡Atención!: el valor que le asigna es el valor ASCII de código cero, y no el valor cero cuyo código es 48. 


La siguiente línea, 350, ejecuta la rutina que dibuja el ábaco en la pantalla y sigue con la que vigila que el número 
que queremos representar sea realmente representable. Posteriormente, línea 360, se ejecuta la rutina calcula que re- 
llena la matriz booleana que contiene la información necesaria para representar las bolas en el ábaco. La línea 379 
ejecuta primero la rutina que pinta las bolas en el ábaco para terminar poniendo a cero la matriz ejecutando la rutina 
que comienza en la línea 3199. A continuación el GO TO de la línea 394 nos envía a la 330 que vuelve a preguntar 
un número. 


Como comentario diremos que en este programa resulta muy claro que esta rutina op1 dirige todo el programa re- 
curriendo a instruciones GO SUB. Un ejercicio de estructuración sencillo sería el de incluir dentro de op1 la única ru- 
tina que no dirige, que es la primera, caracteres, palo y bola. Es muy sencillo, ya que para hacerlo sólo es necesario 
incluir las líneas siguientes sin modificar apenas el programa. 


62 GO TO 300 
260 RETURN 
312 GO SUB 238 


El programa así modificado funciona igual que como está, pero toda su ejecución está dirigida por op1. Cuando se 
estructura un programa, uno de los problemas que surgen es cómo terminarlo. La respuesta a este problema está en 
que en los programas estructurados el final debe estar explícitamente previsto y no suele servir que el programa llegue 
a su última línea. En este caso el final está previsto en la rutina vigila número, línea 4320, como explicaremos al des- 
cribir la rutina. 


HISTORIETA 


La rutina utiliza una modificación de escribe 3 para trasladar a la pantalla el contenido de una variable alfanuméri- 
ca a$(1). Comienza por dimensionar a$ a una cadena de 1419 caracteres. Las cinco líneas siguientes sirven para asig- 
nar a esa variable fragmentos de texto. Hay que puntualizar que hemos recurrido a la utilización de la longitud máxi- 
ma de la cadena para no tener que calcular cuántos caracteres tiene cada parte del texto asignada, ya que para calcular 
el comienzo de la parte siguiente recurrimos a escribir la anterior en la pantalla y, contando el número de líneas, mul- 
tiplicamos por 32, que son los caracteres que hay en una línea. Esta manera de asignar los fragmentos de texto hace 
más lento el programa antes de comenzar a escribir, pero es poco perceptible. 


Las líneas 1980 y 1099 asignan los valores a los parámetros de escribe 3 y la línea 1190 la ejecuta. En 1989 se. 
aprecia que el número de líneas que escribe la rutina de una sola vez, que es el valor que se le asigna a la variable n1 
(número de líneas), es 44. Por tanto, la rutina escribe en la pantalla 1419 caracteres, lo que supone 2 pantallas, y bo- 
rra la pantalla cuando es necesario. 


APLICACIONES SENCILLAS 


CALCULOS 


Esta rutina es la que guarda la información necesaria para representar el número en el ábaco. Lo que hace es relle- 


nar una matriz booleana de 9 x 9 elementos para poder representar “nueve barras de nueve bolas” 9 bolas de nueve 
barras. 


Número: 
MilLLón 


0 ul 


7? 
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Entendemos por matriz booleana una matriz cuyos elementos solo pueden tomar dos valores VERDAD (bola) o 
FALSO (blanco). En el basic de Sincler, y por otra parte en la mayoría de los basic que conocemos, no está prevista la 
construcción de estas matrices, que son típicas para representar cosas en la pantalla. Estas matrices, muy corrientes en 
Pascal, son muy económicas en cuanto a memoria utilizada y pueden ser construidas en basic utilizando cadenas de 
caracteres que consumen menos memoria. Así, una matriz booleana sólo necesita un bit por elemento mientras que la 
misma matriz con números necesita, en el Spectrum, 49 bits (5 bytes), y esta misma matriz con caracteres utiliza 8 
bits por elemento (1 byte). 


La rutina empieza por asignar a la variable nc (número de caracteres) el valor 19, línea 3920, ya que son nueve 
barras de nueve bolas y esta variable va a ser disminuida en una unidad antes de ser utilizada en el lazo de la línea 
3060. A continuación, en la misma línea 3020, se asigna la variable nd (número de dígitos) la longitud de n$, que es 
la variable alfanumérica que contiene el número a representar. La línea siguiente, 3030, asigna a una nueva variable 
alfanumerica d$ el valor del último carácter contenido en n$, y a la nueva variable d se le asigna el valor numérico del 
caracter contenido en d$ 1 línea 3059. En la línea 3049 se disminuyen en una unidad las variables nc y nd que van a 
ser utilizadas en un lazo diseñado sin utilizar FOR TO y que dirige el GO TO de la línea 3079. 


El lazo de la línea 3069 pone una bola en cada posición de la matriz m$(-,s) y, por tanto, como d es el valor del 
dígito, pone una bola en cada posición desde s=1 a s=d. De esta manera el lazo rellena con bolas las posiciones nece- 
sarias de la matriz y deja con caracteres blancos las otras. 


La línea 30709 tiene una instrucción GOTO condicional que hace que el programa continúe en la línea 3089 si nd 


cero O menor que cero, y, por tanto, ejecute el RETURN de esta línea, y en la línea 3930 si es mayor que cero, con- 
tinuando el proceso. 


De esta manera, al finalizar la ejecución de cálculos la matriz m$(nc,s) contendrá una representación de cómo tie- 
nen que estar colocadas las bolas en el ábaco. Esta representación, que se puede ver en la Fig 1, se puede obtener para 
cualquier número con sólo parar el programa cuando empieza a representar el número en el ábaco y escribir la matriz 


APLICACIONES SENCILLAS 


de modo inmediato, es decir, sin número de línea, con el programita: 


FOR s=1 TO 9:FOR t=1 TO 9: PRINT m$(s,t)>;: NEXT t: PRINT: NEXT s 
y pulsando a continuación ENTER. 


BORRA LA MATRIZ 


Como ya hemos comentado, para borrar una matriz en el Basic de Sincler solamente es necesario volver a dimen- 
sionarla. la instrucción DIM pone a cero todos los valores de una matriz numérica, y con valor CHR$ 32 ó ASCII 32, 
que es el blanco, todos los valores de una matriz de caracteres. 


PINTA LAS BOLAS 


La primera línea de esta rutina, 4320, borra la línea 1,9 de la pantalla, para escribir a continuación en esta misma 
línea un cartel que contendrá la palabra número y el número que queramos representar que está en la variable n$. Las 
instrucciones INK, BRIGHT y PAPER sirven para que la palabra “número” se escriba en inverso y el número se es- 
criba con brillo en papel blanco con tinta negra. En esta línea hay dos cosas interesantes; la primera es que cuando en 
una línea, detrás de un PRINT, cambiamos el color de la tinta o del papel, estos colores seguirán siendo los mismos 
para todo el PRINT; y la segunda es que el TAB detrás del PRINT escribe caracteres en blanco entre el final del 
PRINT y la posición en la línea del TAB y, por tanto, el color del papel distinto del fondo de la pantalla hace que es- 
tos caracteres tomen el nuevo color del papel y parezcan escritos. Este mismo efecto se produce con dos TAB en la 
misma línea con cambio en el priemro del color del papel. Para evitar este efecto es necesario cambiar el color del pa- 
pel al color del fondo de la pantalla detrás del primer TAB y volver a cambiarlo en al color pertinente detrás del se- 
gundo TAB. 


Así, por ejemplo: 


TABZ; PAPER 2; "Uno”; PAPER 7; TAB 23; PAPER 5; "Dos” 


escribe Uno en fondo rojo y Dos en fondo azul con las posiciones entre los dos en fondo blanco, pero si suprimimos 
el PAPER 7 el color rojo llegará hasta el Dos. 


La siguiente línea, 4030, es complicada y comienza por asignar el valor cero a la variable sum (suma). Esta varia- 
ble se encargará de terminar de pintar bolas si en una fila no hay ninguna, es decir, esta variable se incrementará en 
una unidad cada vez que se pinte una bola, se pone a cero cada vez que se termina de pintar una fila, línea 4999, y si, 
cuando termina de pintarse una fila, la variable es cero, la línea 4480 termina ambos lazos al asignar a s el valor 9. 
Esto se hace para que no tenga que pintar todas las filas si el número que queremos representar sólo tiene unos. Antes 
de pintar las bolas con un lazo doble, el programa pinta los números del 1 al 9 en orden inverso en la columna 29 de 
la pantalla y comenzando en la línea 19. A continuación comienza el lazo doble que pondrá las bolas en los lugares 
oportunos. En este lazo el contador del primer FOR TO, que es s, indica la fila en la que se está pintando y el del se-. 
gundo t la columna. Lo primero que se hace es calcular la posición x,y de la bola; para ello px (posición de x) será 
t*3, para que escriba en una columna de cada 3, que es donde están las barras; a continuación se calcula py (posición 
de y), que será 19, que es la posición de la línea inmediatamente por encima de la base del ábaco, menos s. A conti- 
nuación viene el condicional, que incrementa en uno el valor del sum si hay una bola en esá posición. 


APLICACIONES SENCILLAS 


La línea siguiente, 4940, es otro condicional con operador de relación que hace que el programa continúe en 
4059 si en esta posición no hay una bola y en 4079 sí la hay. Su funcionamiento se debe a que si hay una bola el pa- 
réntesis de detrás del signo por vale 1, y si no la hay vale 9. 


Las dos líneas siguientes permiten pintar la bola en su posición y saltarse el recorrido de la bola, lo que ejecuta la lí- 
nea 4970, con el GO TO de la línea 4060. La línea siguiente 49708 tiene un condicional con operadores de relación 
y lógicos que es complicado, pero que permite que el color de la tinta, ti, que utilizará la rutina recorrido bola para 
pintar la bola cuando recorre la pantalla, tenga valor 1 para las tres primeras barras, valor 2 para las tres siguientes, y 
valor 4 para las tres últimas. En esta misma línea se le asigna a la variable alfanumérica b$ la bola y se ejecuta la ruti- 
na recorrido bola. 


La línea 4999 termina el segundo lazo, es decir, el que pinta una sola fila, y termina si en la última fila pintada no 
se había pintado ninguna bola, porque la variable sum será cero. La última línea, antes del RETURN, termina el pri- 
mer lazo, pero pone a cero antes la variable sum. 


PINTA EL ÁBACO 


En primer lugar, la línea 4229 la palabra ÁBACO en la posición 21,13, es decir, en el centro de la última línea de 
la pantalla. A continuación, un lazo escribe los números del 9 al 1 en la fila 6, línea 4230, después se escriben otros 
dos carteles que indican los valores de las barras y después dos lazos dibujan la base y las barras que forman el ábaco. 
El lazo que dibuja las barras, línea 4270, es doble para dibujar un fragmento de barra en cada posición y subir una fila 
para dibujar dos fragmentos siguientes: 


VIGILA NUMERO 


la rutina, comienza por comprobar si n$ es igual o mayor de tres elementos línea 4329, para continuar compro- 
bando si contiene la palabra FIN ó fin o cualquier combinación de minúsculas y mayúsculas con fin. 


Si es así termina el programa en la línea 9999. 


A continuación, la rutina se asegura de que la longitud de n$ sea menor de 12, para evitar los engaños de los que 
claramente ha sido víctima el pobre Spectrum, línea 4330. Sigue intentando que el número no sea demasiado grande 
para los nueve que acepta el ábaco, línea 4340. Si el número tiene una longitud entre 9 y 12, cosa que pueden hacer 
inadvertidamente nuestros pequeñitos, el aparato recorta el número quitándole los dígitos que sobran y avisando que 
es incorrecto por medio de un BEEP, línea 4349. Por último, un lazo que empieza en la línea 4359 revisa uno a uno 
los dígitos del número para que los pequeñitos y los que no lo son tanto en edad, pero sí en espíritu, reciban la sor- 
presa de que no admite errores. El lazo revisa que el código ASCII de cada carácter esté entre 48, el código del 9, y 
57, el código del 9. 


APLICACIONES SENCILLAS 


ESCRIBE 3 


La rutina escribe 3 es SUB 7 de la revista anterior, y escribe en la pantalla la cadena de caracteres que está en a$(1). 
Ha sido ligeramente reformada para borrar la pantalla cuando está llena y hacer sonar la melodía. Todo esto lo hace 
la línea 6549. La rutina utiliza un lazo, líneas 6460 a 6569 para escribir en la pantalla primero un carácter de una lí- 
nea, después dos, después tres, y así sucesivamente hasta escribir la línea entera de una vez. Las múltiples variables 
sólo sirven para permitirle a la rutina hacer esto e ir progresando en la variable a$(1) y en la pantalla. 


AMAPOLA 


La rutina pretende substituir una pausa para que se pueda leer la pantalla. Como ya hemos dicho, desde el punto 
de vista musical no es muy afortunada, y esperamos que algún lector nos la corrija. Pedimos disculpas por ello, pero 
nuestro oído lo único que nos permite es advertir su escasa calidad. Desde el punto de vista de programación la rutina 
es muy fácil, ya que cambia los parámetros del BEEP gracias a leer los valores de te y no en la tabla de DATA (datos), 
y multiplicarlos por los valores de wW y w1 que se asignan en la línea 6620, para que puedan ser modificados entran- 
do en la rutina en la línea 6630, como hace la línea 4360 de la rutina vigila número. La rutina funciona gracias al 
lazo de las líneas 6668 a 6693. 


RECORRIDO BOLA 


El primer lazo de la rutina, línea 6820, se ocupa del primer recorrido en vertical desde la posición de salida de la 
bola hasta la línea 4; el segundo, líneas 6830 a 6850, hace que la bola se mueva en posición horizontal a lo largo de 
la pantalla hasta la barra donde se tiene que meter; y el tercer lazo, 6864 a 6889, mueve la bola a lo largo de la barra. 


El primer lazo empieza en posición 18 vertical, origen de la bola, y va hasta la posición 4 vertical. El lazo que es in- 
verso escribe un espacio en blanco en la posición de la bola y, a continuación, la bola en una posición más arriba, y 
así sucesivamente hata llegar a la posición 4 vertical. 


El segundo lazo parte de la posición 4 vertical y 1 horizontal para llegar a la posición donde tiene que pararse la 
bola que está en la variable px calculada en la línea 4030 de pinta las bolas. Para hacer correr a la bola sigue el siste- 
ma del anterior, es decir, escribe un blanco detrás y una nueva bola delante. la línea 6844 sirve para que, cuando la 
bola llegue a la posición anterior a aquella.en la que tiene que empezar a descender, haga una pausa. 


El tercer lazo parte de la fila 4 y termina en py que es donde tiene que pararse la bola, que, como en el caso de px, 
ha sido calculada en la línea 4130 de la rutina pinta las bolas. La línea 6874 de este lazo sirve para que se emita un 
sonido y se dibuje la barra otra vez donde la bola, al pasar, la ha borrado. Por tanto, este lazo, desde el punto de vista 
de los caracteres que escribe, hace lo siguiente: 1) borra la bola de la posición anterior, 2) escribe la bola en la posi- 
ción siguiente, y 3) a partir de la línea 5 de la pantalla, que es donde empiezan las barras, escribe el fragmento de ba- 
rra borrado. 


El BEEP de la línea 6894 sirve para imitar el chasquido que se producirría si las bolas fuesen de vidrio al llegar a su 
posición y chocarán con la bola anterior. Por último, la línea 6934 escribe otra vez la bola en posición definitiva y la 
que está en la base del ábaco desde donde salen las bolas. 
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INTRODUCCION 


El programa código se carga con LOAD y, una vez cargado, aparece el' mensaje que indica que se espere un poco 
hasta que tome los valores de todos los datos, y entonces aparece mi nombre; presentará “El código postal en Espa- 
ña”. 

Da un texto explicativo, luego otro, y empieza en donde hay que pulsar la inicial de la provincia de la que se desee 
saber su dódigo postal. Si se pulsa la u se sale de esta opción, da otro texto explicativo, y termina dando opción a vol- 
ver al principio o terminar. 


Creo que es un programa sencillo en cuanto a su utilización y útil, porque así ya no hace falta ir al estanco a pre- 
guntar el código postal de cada sitio al que queramos enviar una carta o paquete. 


EXPLICACION | 
l a 30-PRESENTACION 


El programa comienza poniendo los colores a la pantalla para todo el resto del programa. A continuación aparece 
un mensaje de “espera a que cargue mis circuitos” para que la pantalla no se quede en“blanco mientras carga los dis- 
tintos valores. Con dos GO SUB va a la línea 9909 y después a la 7100. Las líneas siguientes imprimen mi nombre 
y el del programa por medio de GO SUB 5094. 


Aparece el texto de despedida y da opción a volver al principio o a terminar, dependiendo del valor de f$. 
5000 a 5005-ESCRIBE Y BORRA 


Escribe el texto de presentación de mi nombre y del programa. Por medio de RANDOMIZE USR 3194 hace subir 
la pantalla. 


-7000 a 7028-NOMBRES Y CODIGOS 


En los DATA están los nombres y los códigos de las provincias. Con DIM n$(51,20) se consigue que se puedan po* 
ner $1 cadenas de caracteres con un máximo de 24 caracteres por provincia. 


7500 a 7540-ESCRIBE NOMBRE Y CODIGO 
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Escribe los nombre y los códigos dejándolos centrados en la pantalla. 


9300 a 9440-CARACTERES EN ESPAÑOL 


Los DATA contienen los caracteres propios del español. 


9998 y 9999-FIN 


Con la despedida y borrando la pantalla con CLS termina el programa. 


35 a 50-EXPLIACION DEL CODIGO POSTAL 
Escribe un texto que está en la variable 1$ yendo a GOSUB 5599. 


100 a 125-MOSQUEO 
Gracias a utilizar PAUSE Y no se avanza en el programa hasta que no se pulse una tecla. 
199 a 212-PREGUNTA. 


Se escribe un texto que sirve de explicación al INPUT u$, después va a 218 con GO SUB y a 210 con GO TO. Sirve 
para meter la porvincia que deseamos. 


218 a 236-OPCIONES 


En estas líneas están las opciones. En cada una de ellas se va a 237 con GO TO y de 237 a 7599 con GO SUB. En 
cada línea hay dos variables n9 y n1 que sirven para el centrado de los textos en la pantalla. 


475-APARTADOS DE CORREOS 
Escribe el texto en la variable 1$ yendo a GO SUB 5590. 


480 a 486-ESCOGE FIN 
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SUBRUTINAS 


El programa es, como siempre, un ejemplo con varias secuencias de llamada de la utilización de la rutina en código 
máquina SUB3m, que dibuja paralelogramos rectángulos, pero esta vez rellenos. También como de costumbre, el pro- 
grama tiene la rutina escrita en Basic, a partir de la línea 8U00, y sus bytes son cargados en el lugar oportuno de la 
memoria RAM por un lazo, líneas 8144 y 8150. Asimismo detrás de la rutina de carga hay otra pequeña rutina que 
carga los argumentos de los parámetros en RAM y ejecuta SUB3m. 
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Del mismo modo y como hemos hecho hasta ahora, el programa comienza por bajar el final artificial de la memo- 
ria RAM (RAMTOP) el número de bytes necesarios para cargar SUB3m encima de la RAMTOP. A continuación 
asigna a las variables coc (comienzo del CODIGO MAQUINA) y cop (comienzo del programa) sus correspondientes 
valores, que son: para coc, 169 bytes debajo del comienzo de los caracteres gráficos, y para cop, 18 bytes encima de 
coc. Para esta rutina normalmente sobre espacio, ya que ocupa 79 bytes, ver línea 8140, pero si algún lector tuviera 
problemas de espacio puede ganar unos 74 bytes, ya que 89 son de la rutina y menos de 19 de los parámetros. El 
programa en Basic continúa cargando los bytes de la rutina que están en los DATA de las líneas 8824 a 8139 en la 
memoria RAM, gracias a la instrucción GO SUB de la línea 37. 


SUBRUTINAS 


SUB3me1 


La primera secuencia de llamada, que comienza en la línea 19 y termina en la línea 139, ejecuta la rutina que carga 
los bytes en memoria RAM y asigna los colores del borde de la pantalla y de la tinta en rojo, líneas 39 y 49. La línea 
SW ejecuta por primera vez SUB3m, pero antes asigna valores a sus parámetros, 1x, ly, x9 e y9. Dado que los valo- 
res asignados constituyen los límites de la pantalla, la rutina, en esta primera llamada, la rellena con un cuadrilátero 
de color rojo. Es importante advertir que el cuadrilátero de color rojo no ocupa toda la pantalla: debido a la manera 
en que está programada la rutina deja una línea de “pixels” en blanco. 


Todas las líneas desde la 79 a la 120 llaman a la rutina para dibujar un cuadrilátero cada una, variando alguno de 
los valores de los parámetros. La línea 130 realiza una pausa de 199/59 de segundo y cambia el color de la tinta al 
verde y el papel al amarillo ejecutando CLS (Clear Screen = borra la pantalla). 


La segunda secuencia de llamada, líneas 204 a 310, ejecuta un lazo doble que forma un dibujo en la pantalla con 
barras de color variable de longitud variable. La secuencia es muy sencilla, sus líneas 244 a 279 asignan los valores a 
los parámetros y la 289 llama a la rutina. 


La tercera secuencia comienza por hacer una pausa de otros dos segundos y, cambiando los colores, asigna a la va- 
riable col (color) el valor cero que va a utilizar la línea 504 para modificar el color de la tinta antes de repetir el di- 
bujo. El lazo doble dibuja en la pantalla una función sinusoidal, variando la posición de la pantalla donde se dibuja el 
cuadrilátero en el eje y, línea 479. 


El cometido de la secuencia de llamada número 4, que empieza en la línea 699 y termina en la 750, es dibujar 
una función logarítmica con cuadriláteros dibujados por SUB3m. La línea 624 cambia los colores a la pantalla y traza 
los dos ejes ejecutando dos veces la rutina. La línea 639 asigna a longitud de x (1x) el valor 19, y a una variable num, 
que va a servir para repetir el dibujo con barras, el valor Y. Esta variable, utilizada en las líneas 749 y 750, permite 
repetir el dibujo, porque la primera vez que se ejecuta la línea 749 tiene el valor Y, y la segunda 1, con lo que la línea 
744 nos enviará a la 7999, que termina el programa. 


SUBRUTINAS 


La rutina utiliza el mismo sistema que la anterior para dibujar una función logarítmica, es decir, varía la posición 
de comienzo del dibujo en el eje y, línea 670. Si num vale 1 el condicional de la línea 6741) hace que 1y sea dependien- 
te de y9 y, por tanto, en el segundo dibujo 1y va a ser variable y cada vez más larga. 


Por medio de las líneas 689 a 719 os será posible variar bastante los valores de los contadores de ambos lazos, s y 
t, sin que se provoquen errores. Como ya hemos comentado, entre las líneas 8999 y 8270 está la rutina, el lazo de 
la línea 8149 la carga en la memoria y, en la línea 8204 y siguientes, una pequeña rutina carga los valores de los pa- 
rámetros en la memoria y ejecuta la rutina, 8269. Por último, las líneas 8144 y 8159 permiten adaptar la rutina al 
aparato en el que está cargada, cambiando la dirección de comienzo de los parámetros. 
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SUB3me2 y SUB3me2+ 


Las diferencias de teclado entre el Spectrum y el Spectrum Plus nos ha obligado a realizar dos versiones de este 
programa. Para evitar confusiones diremos que, aunque ambos teclados son idénticos desde el punto de vista del apa- 
rato, en el del Plus las teclas de las flechas que indican el desplazamiento del cursor están independizadas y no hay ne- 
cesidad de apretar previamente CAPS SHIFT. Para evitar pulsar CAPS SHIFT en el Spectrum, se recurre a la utiliza- 
ción de los números que están debajo de las teclas para mover el cursor, pero esto es en realidad un truco de progra- 
mación 


Cuando apretamos el 5 en el Spectrum, el código ASCII que obtenemos es el 53, que es el código del 5. Sin embar- 
go, si pulsamos CAPS SHIFT 5 obtenemos el código ASCII 8, que es cursor a la izquierda. Normalmente, cuando se 
utilizan en el Spectrum las teclas para mover el cursor, se substituye el código del cursor por el del número, y de esta 
manera no es necesario pulsar CAPS SHIFT. 


Un programa sencillo para averiguar esto, muy útil para conocer el código de una tecla sin recurrir al manual, casi 
siempre en paradero desconocido cuando se necesita, es el siguiente: 


1 LET as=INKEY$: PRINT CODE a$: GO TO 1 


Este sencillo programa está funcionando siempre, una vez se ejecuta, pero dado que si no se aprieta ninguna tecla el 
código es cero,en la pantalla aparece enseguida una columna de ceros que se detiene para preguntar “scroll?”, y hasta 
que se pulsa una tecla no se pone en marcha. Si pulsamos cualquier tecla nos escribe su código, excepto en el caso de 
las teclas que detienen el “scroll” y BREAK, que detiene el programa. 


Esta vez, como SUB3me2 os proponemos el esqueleto de un programa que puede dibujar líneas de distintos groso- 
res en la pantalla utilizando la rutina, y que se puede completar a vuestro gusto de una manera sencilla. 


El programa consta de cinco rutinas: 


1.— ejecuta: Pone en marcha el programa ejecutando cursores. 


2.— cursores: Consigue que se muevan los cursores dibujando en la pantalla rayas del grosor que se quiera. 
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3.- menú: Ofrece una serie de posibilidades para modificar el empleo del programa. 
4.— parámetros: Carga los parámetros de la rutina SUB3m en el lugar oportuno de la memoria. 


5.— carga código máquina: Carga de la cassette el código máquina perteneciente a SUB3m. 


EJECUTA 


La rutina comienza por hacer una llamada a carga c.m. que carga los bytes de SUB3m. Esta rutina, que ya fue expli- 
cada en el número 4 de la revista, carga los bytes inmediatamente por delante de los caracteres gráficos definidos por 
el usuario (UDG). La rutina baja el final artificial de la memoria RAM RAMTOP y modifica la dirección de comien- 
zo de los parámetros con los dos POKE de la línea 8379. 


CURSORES 


La línea 2029 de esta rutina fija las posiciones iniciales del cuadrilátero dibujado por SUB3m a 127,83, que es el 
centro de la pantalla. La línea siguiente, 2030, lleva a cabo varias funciones. En primer lugar, un INPUT admite que 
demos valores a la longitud de 1x y 1y, que son las dimensiones del cuadrilátero. Estos valores pueden ser considera- 
dos, en este programa, como el tamaño del pincel que vamos a utilizar para pintar. La línea continúa con un condi- 


cional que evita que demos valores a 1x y 1y que rebasen los márgenes de la pantalla. Si se salen de estos márgenes, el 
BEEP emite un sonido, y a continuación se escribe en el lugar reservado para los INPUT con la instrucción PRINT 
+ 0, que tiene que ir obligatoriamente seguida de un sistema para que sea posible leer en la pantalla la cadena de ca- 
racteres escrita, en este caso PAUSE 9, ya que de lo contrario la escritura y su posterior borrado se produciría tan ra- 


pidamente que no podríamos leerlo. Por último, la línea termina empezando de nuevo, en el caso de que hayamos re- 
basado los márgenes, con GOTO 249309. : : 


La línea siguiente, 2040, consigue que, si se pulsa 8 en el Spectrum o la flecha a la derecha en el Plus (SUB3me2+), 
se le sume a x9 el valor de 1x, con lo que el siguiente cuadrilátero se dibujará al final y a la derecha del anterior. Lo 
mismo ocurre con las otras flechas en el resto de esta línea y en la siguiente. Como siempre, el paréntesis del condi- 
cional vale cero, si no se pulsa 8 ó 5, y por tanto x9 queda igual a x9. 


La rutina continúa ejecutando parámetros y SUB3m, línea 8956 de parámetros. Posteriormente ejecuta menú para 
comprobar si queremos utilizar alguna de las opciones, y vuelve a la línea 2040 para comprobar si hemos pulsado al- 
guno de los cursores. 


MENU 


El menú tiene siete opciones pero se le pueden incluir muchas más: 
1.—£: fin del programa. 
2.—b: borra. 


3.-d: dibuja. 
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4.—c: cambia el tamaño del cuadrilátero. 
S.—t: tinta. 
6.—p: papel. 
7.—v: CLS, limpia la pantalla. 
Hemos numerado las líneas de manera que sea posible incluir otras opciones como OVER, LET xW=x0+1x. 


FLASH, vuelta al origen del dibujo, u otras muchas que os podéis inventar, aunque sean rutinas completas que se pue- 
dan intercalar con una línea como: 


IF INKEYS="a" THEN GO SUB o o0x 


PARAMETROS 


Los valores de los parámetros de SUB los carga en RAM, antes de SUB3m, esta pequeña rutina que después ejecuta 
el código máquina de SUB3m, línea 8069. 
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SUB3mc 


INTRODUCCION 


La rutina SUB3mc dibuja paralelogramos rectángulos rellenos en la pantalla. Hemos continuado con esta rutina en 
nuestra serie de rutinas en código máquina ya que es muy parecida a la anterior, SUB2m, y la hemos programado de 
la misma forma para que, comparando los dos programas, se puedan apreciar las diferencias y las similitudes. Tam- 
bién, como es habitual en nuestras rutinas, hemos sacrificado un poco la longitud de la rutina y su velocidad con el 
fin de que sea más clara para los que empiezan y de que pueda ser completamente independiente del lugar de la me- 
moria RAM en el que se ubica. 


Los parámetros son idénticos a los de SUB2m y están colocados en el mismo sitio. Esperamos que os sea útil y le 
encontréis múltiples aplicaciones. 


PROGRAMAS CON SUB3m 


Hemos grabado en la cassette los programas SUB3m, SUB3mc, SUB3me1, SUB3me2 y SUB3me2+. El programa 
SUB3m consiste en la rutina escrita en Basic para ser cargada en la memoria por un lazo. SUB3mc consiste en los 
bytes de la rutina para que los cargue el programa SUB2me2 para el Spectrum y SUB3me2+ para el Plus. Ambos pro- 
gramas tienen: una rutina que carga SUB2me2 en el lugar oportuno. El programa SUB2me2+ sirve para que los posee- 
dores del Plus puedan utilizar en el teclado las flechas, ya que en la versión del Spectrum se utilizan los números 5, 6, 
7 y 8, que están debajo de las flechas para que no sea necesario utilizar CAPS SHIFT. El programa SUB2mel es auto- 
suficiente porque lleva la rutina en BASIC y la carga en las tres versiones en el lugar correcto, siempre que los UDG 
(caracteres gráficos definidos por el usuario) estén encima de la RAMTOP y no haya una rutina que reescriba las po- 
siciones de memoria que ocupará SUB3m. 


El programa SUB3mb funciona cargándolo con LOAD y ejecutándolo con RUN; no así SUB3mc, ya que son los 
bytes del código máquina y hay que asignarle valores a los parámetros y ejecutar la rutina. SUB2me1 debe funcionar en 
los tres modelos cargando el programa con LOAD y ejecutándolo con RUN. SUB3me2 se carga con LOAD y se eje- 
cuta con RUN pero hay que tener en cuenta que para funcionar necesita la rutina, que no lleva escrita en Basic, y, por 
ello, hay que cargar el programa con LOAD “SUB2me2”, pulsar ENTER, poner en marcha la cassette, esperar a que 
se cargue el programa, parar la cassette, pulsar RUN y ENTER, y volver a poner en marcha la cassette para cargar 
SUB3mc. Una vez cargada SUB3mc, el programa debe funcionar. Es importante tener en cuenta que, a veces los dos 
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programas están muy cerca en la cassette y si no se para ésta a tiempo podemos rebasar la cabecera del programa si- 
guiente, con lo que no se carga. En este caso hay que rebobinar unas vueltas la cinta y volver a ponerla en marcha 
para que cargue la rutina cuando la encuentre. 


CONDICIONES DE ENTRADA 


Antes de ejecutar SUB3m hay que dar valores a sus parámetros. Los programas de la cinta cumplen esta condición 
salvo en el caso de SUB3mc. 


PARAMETROS 


La rutina tiene los mismos parámetros de SUB2mc. 
1. 1x es la longitud en el eje x de dos de los lados del paralelogramo. 
2. 1y es la longitud en el eje y de los otros dos lados del paralelogramo. 
3. x9 es la posición en el eje x del comienzo del dibujo. 


4. yO es la posición en el eje y del comienzo del dibujo. 


LIMITES DE LOS ARGUMENTOS 

. 1x tiene un valor mínimo de -255 y un máximo de 255. 

. 1y tiene un mínimo de —-175 y un máximo de 175, pero tiene problemas entre -89 y 9. 

. x9 tiene un mínimo de -255 y un máximo de 255. 

. yO tiene un mínimo de —-175 y un máximo de 175, pero no puede estar entre -89 y Y. 

. 1x+x0 < =255. 

. ly+y0 <=175. 

. Dado el funcionamiento de la rutina, se pueden utilizar los números negativos siempre que se preste atención a ly 
y yO, ya que POKE ?, -890=POKE ?, 175 y POKE ?, -79=POKE 2, 176. Si no se está seguro mejor no utilizarlos. 


La rutina termina cuando 1x+x0=4x9 y 1y+y0=y0. La ejecución de POKE d, —n da como resultado el que en la 
dirección de memoria d haya 255—n y se puede comprobar con PEEK d. 


DESCRIPCION DE LA RUTINA 


Lo que comentábamos en SUB2m es extensivo a esta rutina. Es más larga de lo normal por haber utilizado el regis- 
tro IX. Esto también tiene como consecuencia el que es más lenta, pero ambos defectos son tolerables en este tipo de 
rutinas cortas. 


El programa empieza por guardar en el STACK del computador el registro IX utilizando la instrucción push IX 
(empuja al Stack el registro IX). Una vez guardado este registro, la rutina abré el canal correspondiente a la parte 
mayoritaria de la pantalla, que es el canal 2. Para ello carga en el registro a el valor 2 (load a,2) y llama a la rutina de 
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Sincler, que está en memoria ROM (read only memory=memoria de sólo lectura), con call 5633. 


La instrucción siguiente carga en el registro IX la dirección inicial de los argumentos, es decir 65249. El Z80 tie- 
ne dos registros índice de 16 bits que se llaman registro IX y registro IY. Estos registros permiten cargar a partir de 
una dirección de memoria gracias a un desplazamiento, como se indica en el programa. Todas las operaciones referi- 
das a la memoria que pueden realizarse con el empleo de la pareja de registros HL, pueden también realizarse con los 
registros de desplazamiento. El registro IY es utilizado por el Spectrum, fundamentalmente, para contener el número 
del mensaje de error y es muy importante para el funcionamiento correcto del aparato, por lo que no os aconsejamos 
que lo utilicéis a menos que sepáis muy claramente qué estáis haciendo, porque lo probable es que el aparato se blo- 
quee. 


La rutina continúa cargando los registros b, c, h y 1 con el contenido de IX+9, IX+1, IX+2 y IX+3, es deci y 
IX+3, es decir, 65200, 65201, 65202 y 65203. De esta manera en b tenemos 1y, en c 1x, en h y9 y en 1 x0. La 
instfucción siguiente carga en a el contenido de h, es decir en a y9. (1d a.h), para que la siguiente instrucción sume el 
contenido de b al de a. Como b contenía 1y ahora en a quedará y0W+1y. Si el resultado de esta suma es mayor de 255, 
que es el binario 11111111 entonces el Z80 enciende una serie de banderas que nos permiten saber que se ha sobrepa- 
sado el límite de 8 bits que puede manejar add a.b. Las banderas están en el registro f (flags=banderas). En esta rutina 
no es importante porque el límite máximo de puntos en la pantalla está en el eje x y son 255=11111111. La siguiente 
instrucción carga en h el resultado de la suma (1d h.a). A continuación se carga en a el contenido del registro ,1 que 
era x9 y después se suma al registro a el contenido de c que es 1x. De esta manera en a nos vuelve a quedar la suma 
de xW+1x que se pasa al registro 1 con 1d 1,a. Sigue cargando en la dirección 1X+4, es decir, 65200+4=65204, h 
(yOD+1y) y en (IX+5)=65205, 1 (x0+1x) y en (1X+6)=65206, otra vez h (yO+1y). 


De esta manera en estas operaciones previas hemos logrado lo siguiente: 
. 1IX+W9=65209 contiene yY 
. IX+1=65201 contiene 1y 
. 1X+2=65202 contiene x9 
. 1X+3=65203 contiene 1x 
. 1X+4=65204 contiene y0+1y 
. 1X+5=65205 contiene x0+1x 


. 1X+6=65206 contiene yO+1y 
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A continuación la rutina carga en b IX+4 y en c IX+S. Los registros b y c son utilizados por la rutina de Sincler 
PLOT para poner un punto en la posición de x indicada por c y en la de y indicada por b. La rutina PLOT no necesi- 
ta más parámetros y, por tanto, la siguiente instrucción llama a PLOT, que está en ROM, y empieza en la dirección 
de memoria 8927. Una vez ha puesto el punto en 1x+x0, 1y+y9 con CALL (llama o ejecuta a partir de ? hasta el pri- 
mer RET (return=vuelve), la siguiente instrucción disminuye en una unidad el valor de (1X+4), es decir, de yW+1y, 
(ee (1X+4)) y, cargando en b otra vez IX+4, pero esta vez es yW+ly—1 y en a IX+2 que es yW compara b con a (cp 

). 


El aparato, para comparar el contenido del registro b con el del registro a, resta al registro a el contenido de b tra- 
tando ambos números como datos binarios. El resultado le sirve para modificar las banderas del regisro f pero en a 
permanece el número que había ya, que no es modificado por la resta. Si el resultado no es cero, es decir, si los núme- 
ros son diferentes, la bandera Z del registro f se pone a cero. La instrucción siguiente jr nz, 235 hace que el Z80 salte 
a la posición 235 relativa al contador de programa pc si la bandera Z del registro f es igual a cero. De esta manera, si 
la condición no se cumple, es decir, si yW+1y—1 no es igual a y9 el salto se produce; si es igual, el salto no se produ- 
ce y el programa continúa en la instrucción siguiente. 


Si el salto indicado por jr nz, 235 se produce, el programa continúa su ejecución en la dirección 654W39 cargando 
en b IX+4, es decir, yW0+1y-1 y continúa hasta que se cumpla la condición de que yW+1y=y9. Cuando esta condición 
se cumpla, el programa continúa en 1d b, (IX+6), es decir, volviendo a cargar en b el valor original de yWV+1y. A con- 
tinuación pasa este valor a la dirección (1X+4) otra vez, ya que si la condición se había cumplido, (1X+4) tiene que te- 
ner y9. La rutina sigue disminuyendo en una unidad IX+S, es decir, xW+1x y comprobando que IX+5 es distinto de 
1IX+3, x0 salta a la misma posición de memoria que la instruccion jr nz anterior. 


Por tanto, y para resumir, la rutiná dibuja puntos desde la posición yW+1y,x0+1x hasta yD,x9+1x para continuar 
con yO+ly,x901x-1 hasta yY, x0+1x-1 y seguir disminuyendo en 1 el valor x0+1x hasta que vale xW que termina. 


Antes de volver al Basic con RET (return=vuelve), la+utina devuelve a IX su valor inicial con POP IX. 
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APLICACIONES SENCILLAS 


ÁBACO Segunda parte 


En nuestro último número os prometíamos una segunda parte del ábaco que permitiese al usuario 
representar números suministrados por el aparato poniendo las bolas en las barras a su elección, siendo el 
aparato el que comprobase si estaban bien puestas. 

Esta es la parte que os presentamos y que hemos incluido en la cassette en las versiones de los tres 
tipos de Spectrum que fabrica Sinclair. 


Manejo del Abaco 


El programa completo presenta dos posibilidades entre las que podemos elegir por medio de un 
MENU; o nosotros le damos un número al aparato y éste nos lo representa en el ábaco, o bien el aparato 
nos da un número y lo representamos nosotros. La primera posibilidad ya la habéis visto los que 
dispongáis del número anterior de la revista; la segunda permite, utilizando los cursores, poner las bolas en 
las barras, borrarlas y comprobar, cuando el usuario quiera, si el número está bien representado en el 
ábaco. 

Los cursores en el Plus están independizados y en la versión para este aparato las teclas de los 
cursores mueven los cursores. 56059 , 


Millón Plat 


Teclas en ambas opciones 


TECLA 5.— Cursor a la izquierda. 
TECLA 8.— Cursor a la derecha. 
TECLA 6.— Cursor arriba. 
TECLA 7.— Cursor abajo. 


HiuG E 0 0 -J 06 0 


Teclas en la opción 2 
ABACO 
TECLA p.— Pone una bola en la posición a la que apunta el cursor. 
TECLA b.— Borra la bola en la posición a la que apunta el cursor si la hay. 


TECLA c.— Comprueba si las bolas que hemos puesto representan el número que el aparato ha 
generado. 


TECLA f.— Vuelve al menu. 


APLICACIONES SENCILLAS 


Opción 1 


Pregunta: Número (menú, fin): Se puede contestar con un número, menú o fin. Si se contesta menú el 
programa pasa a ponernos el menú en la pantalla y si se contesta fin termina el programa yendo a la línea 
9999. Si se contesta un número cualquiera el aparato trata de representarlo. 


Opción 2 


Pregunta: ¿Cuántas cifras?: Se puede contestar un número de cifras cualquiera entre O y 9. Si se 
contesta cero el programa continúa en el menú. Cualquier otro valor entre 1 y 9 hace que el aparato 
genere un número al azar que conste del número de cifras que se le ha pedido. Este número puede tener 
ceros delante del número, es decir, cifras no significativas. 


Explicación del programa 


Rutinas de la versión 01 


ES) 
1.— caracteres, palo y bola 
2.— principal op. 1 
3.— historieta 
4.— cálculos 
S.— borra la matriz 
6.— pinta las bolas 
7.— pinta el ábaco 
8.— vigila número 
9.— SUB7 Escribe 3 
10.— amapola 
11.— recorrido de la bola 


Rutinas nuevas 


1.— menú 

2.— directora 

3.— pantalla 

4.— pinta una bola 

S.— pinta el cursor 

6.— borra una bola 

7.— comprueba el resultado 
8.— principal opción 2 


En este caso, contrariamente a lo que hicimos con el programa BARRAS, hemos preferido incluiros el 
programa completo en la cassette, ya que la modificación de la versión anterior es ligeramente complicada. 


APLICACIONES SENCILLAS 


Modificaciones en las rutinas de la versión 01 


CARACTERES PALO Y BOLA 


Las líneas 180, 190 y 200 del ábaco 01 contienen tres DATA con ocho ceros cada uno ; estos ceros 
sirven, como ya explicamos anteriormente, para separar los caracteres gráficos del castellano de los 
correspondientes al programa. Aparte de esta función aparecian en estas líneas porque la versión que 
ahora os ofrecemos incluía otros tres caracteres gráficos que hemos suprimido a última hora. 

Por este motivo hemos omitido también los tres DATA y sus corroespondientes ceros. Al suprimir 
estos tres DATA hemos tenido que modificar los caracteres gráficos que se escribían o se utilizaban en las 
líneas 3060, 4030, 4050, 4070, 4260, 4270, 6820, 6830, 6860, 6870 y 6900 de Abaco Ol, ya que eran 
los caracteres gráficos M y N, que ahora son J y K. 


PRINCIPAL OPl 


La línea 330 de la rutina del ábaco 01 ha sido modificada para avisar al usuario que el programa admi- 
te ahora que se responda menú o fin a este INPUT, además de cualquier número de menos de 12 dígitos. 
Estas dos posibilidades van a ser vigiladas en las líneas 4320 y 4330 de vigila número. 

La línea 380 contiene un condicional que hace que si la variable men (menú) es igual a 1 el programa 


continúe en la línea 2030 de la rutina directora, que es GO SUB 500, que a su vez es el comienzo de la 
rutina MENU. El valor de la variable men se asigna en las lineas 4330 y 330. 


HISTORIETA 


A esta rutina se le ha suprimido una línea, la 1070, del programa Abaco 01. Los motivos de la 
suspensión de esta línea son obvios, pero obligaron a introducir ligeras modificaciones en la rutina. En la 
línea 1030 se dimensiona a$ (1) a 1217 caracteres, que son los que quedan después de suprimir la línea 
anterior. En las líneas que contienen texto, 1040, 1050, 1060 y 1070, se cambia el valor 1410 por el 
nuevo 1217. En la línea 1080 fue necesario modificar el valor de la variable nl (número de líneas) que era 
de 44 para darle su nuevo valor de 38 líneas. 

Por último para cumplir la promesa que os hicimos de que podríais saltaros la historia, hemos añadido 
la línea 1020, que permite este salto si posl (posibilidad 1) vale cero. Los valores de las variables pos0, 
posl, pos2 y pos3 se asignan en la rutina MENU, en el caso de posl se le asigna el valor O si a la 
pregunta ¿Quieres la historia? se responde n. 


CALCULOS 


En esta rutina la única variación incluida es el cambio del carácter gráfico, debido a la supresión de los 
DATA que ya hemos comentado. 


BORRA LAS MATRICES 


Al incluir la segunda parte es necesaria otra matriz para representar las bolas que, al utilizar la opción 
2, hacemos aparecer en la pantalla y, por ello, hemos puesto la matriz e$ (9, 9), que es igual a la m$ (9, 9). 

La sustitución del nombre de la rutina es un lapsus del que lo tenía que haber puesto en plural pero, por 
esta vez, le perdonamos, al menos nosotros. 


APLICACIONES SENCILLAS 


PINTA LAS BOLAS 


En esta rutina la línea 4030 del ábaco 01 ha sido dividida en dos para permitir la inclusión de un 
condicional con el que sea posible saltarse la escritura de los números paralelos a la primera barra, que 
sirven como ayuda de la posición de las bolas en las barras. Esta es la posibilidad 2 (pos2) cuyos valores, 
como hemos comentado, se asignan en la rutina MENU. 


Es importante insistir en que detrás de un IF y en la misma línea solamente pueden figurar las 
instrucciones que queremos que el IF controle, ya que la ejecución de todo el resto de la línea dependerá 
de que el resultado del condicional sea cierto. Si el condicional es falso no se ejecuta ninguna de las 
instrucciones de esta línea que aparezca detrás del IF. Esto, que es muy útil en ocasiones, puede ser causa 
de errores como el que nosotros tuvimos en el programa METEDATOS. 


Por otra parte, en la línea 4080 hemos incluido la asignación de los valores de t y s a x e y porque 
serán necesarios debido a la variación que hemos introducido en la rutina recorrido bola. 


PINTA EL ABACO 


En este caso la única variación está en el condicional de la línea 4230, que permite saltarse los carteles 
de ayuda que se escriben encima del ábaco para recordar que las tres primeras barras indican millones, las 
tres siguientes miles y las tres últimas, unidades, así como el que indica que la primera barra de cada grupo 
de tres expresa las centenas, la segunda las decenas y la tercera las unidades, y escribe el número de cada 
barra. Este salto se realiza si la variable pos2 (posibilidad 2), vale cero, que, como hemos comentado, 
adquiere su valor al ejecutar la rutina MENU. 


VIGILA NUMERO 


La línea 4330 de esta rutina es nueva y perr'te aceptar la posibilidad de que a la pregunta del INPUT 
de la línea 340 se pueda contestar con MENU o cualquier combinación de mayúsculas O minúsculas con 
estas letras escritas en este orden. Para ello comprueba los caracteres del primero al cuarto y. si contienen 
estas letras, asigna el valor 1 a la variable men (menú). 


RECORRIDO BOLA 


Hemos modificado bastante esta rutina para permitir que, cuando se está en las posiciones de las 
barras en las que puede haber bolas, la rutina pinte una bola si había una bola en esta posición, y el trozo 
de barra correspondiente si esta posición estaba vacía. 


Para conseguir esto hemos incluido un lazo que empieza en la linea 6880, asignando a una variable 
nueva yÚ el valor de 9, que es el número máximo de bolas por barra. A continuación, el lazo empieza en la 
posición 11 de la pantalla, equivalente a la bola 9, y termina en la posición py, es decir, donde queremos 
colocar una bola. 

Los condicionales de las líneas 6890 y 6900 consiguen que, si en esta posición hay una bola en la 
matriz cs (x, yO). se pinte otra bola y. si no hay bola. se pinte otro trozo de barra. El hecho de 
que en estas posiciones de la matriz e$ (?, ?) haya bolas se debe a que la rutina pinta una bola le asigna 
este carácter gráfico a la posición correspondiente de la matriz cada vez que se pulsa la tecla p. 

Este lazo no tendrá ningún efecto negativo cuando se utiliza la opción 1, es decir, no pintará ninguna 
bola, debido a que la matriz e$ (?, ?) estará llena de blancos al ser redimensionada por la rutina borra la 
matriz. : 
Los lazos de las líneas 6860 y 6870 son equivalentes al lazo de las líneas 6860 a 6880 de la versión 01 
para las posiciones 4 a 10 de la columna correspondiente, y se podrían haber programado en un solo lazo 
con un condicional, como en esta versión. Son necesarios dos lazos si se elimina el condicional porque en 
las posiciones 4 y 5 no hay barra. 


APLICACIONES SENCILLAS 


Rutinas nuevas 


MENU 


La rutina MENU comienza por poner el color 5, azul claro (CY AN), en toda la pantalla, fijando para 
el color de la tinta el negro, línea 520. Para ello, y como de costumbre, se asignan primero los valores de 
los nuevos colores a INK, tinta, PAPER, papel y BORDER, borde, para seguidamente borrar la pantalla. 

Como ya hemos comentado, el CLS (clear screen = limpia la pantalla) es obligatorio si se quiere que 
el cambio de color del papel sea instantáneo en toda la pantalla, ya que, de otra manera, este color 
cambiaría paulatinamente a medida que escribiésemos en ella. 


La linea 530 escribe un cartel con la palabra MENU en la posición O, 11 de la pantalla, con el brillo 
encendido y el papel blanco (PAPER 7) para que destaque en el fondo azul. A continuación, líneas 540 y 
550, se escriben dos carteles en las líneas 2 y 6 de la pantalla. En estos carteles se hace que el número 
parpadee, utilizando FLASH 1 antes del número y FLASH O después de él, para indicarle al usuario cuál 
debe ser la respuesta. 


Las cuatro preguntas van a permitir asignar el valor uno o cero a las variables pos0 (posibilidad), 
posl, pos2 y pos3, que van a servir para modificar la ejecución del programa de la siguiente manera: 


pos0 =0: línea 2040, se ejecuta principal opi, es decir, la primera opción del programa. 
pos0 = 1: línea 2050, se ejecuta principal op2, es decir, la segunda opción del programa. 


pos1 =1: línea 1020, se ejecuta «HISTORIETA». 


posl1l =0: línea 1020, no se ejecuta «HISTORIETA». 


pos2 =0: línea 4230, se saltan las líneas 4240 a 4260. 


pos2 = 1: se ejecutan las líneas 4240 a 4260. Estas líneas ponen los carteles de ayuda que indican los 
valores y números de las barras. 


pos3 = 1: líneas 4750 y 4780, se escribe el cursor seguido del número de la bola a la que apunta, y se 
escriben los números de apoyo al lado de la primera barra, línea 4260:4. 


pos3 =0: líneas 4740 y 4790, se pone una bola del color correspondiente en vez del número de bola. 


La línea 560 utiliza un INPUT LINE para preguntarnos qué opción queremos utilizar. Ya hemos 
comentado en alguna ocasión que entre el INPUT y el LINE pueden utilizarse las opciones del PRINT. 
Por otra parte, es interesante comentar que la razón fundamental para utilizar, en un INPUT de este tipo- 
cuya respuesta esperada es numérica (1 ó 2), una variable alfanumérica o$ es que el INPUT LINE ?$ 
permite que se responda pulsando casi cualquier tecla y ENTER sin que se provoque un error, mientras 
que si se emplea una variable numérica y al INPUT se le contesta con una letra se provoca un error. Por 


APLICACIONES SENCILLAS 


otra parte, la utilización de una variable alfanumérica nos permitirá mezclar la posibilidad de contestar 
cualquier número y de utilizar este INPUT para cambiar de opción, como en el INPUT de la línea 340. 

Las dos líneas siguientes, 570 y 580, comprueban la respuesta y, si ésta es distinta de 1 y de 2, 
escribe la 580 en el sitio reservado para los INPUT gracias a PRINT +* O. Para que se pueda ver lo escrito 
en esta línea es necesario el PAUSEO, ya que de otra manera lo escrito sería borrado inmediatamente y no 
se podría leer. Si 0$ = “2” entonces se salta la línea 580 y la 590 asigna a pos0 el valor 1. 

El resto de la rutina es una repetición de las líneas 520 a 590 para la historia y las ayudas 1 y 2. Asi, 
las líneas 600 a 660 comienzan por poner la pantalla de color verde, línea 600, para continuar escribiendo 
otra vez el cartel MENU, línea 610, y la pregunta, línea 620, para permitirnos la 630 dar una respuesta 
con el INPUT y las 640 a 660 comprobar esta respuesta. Las líneas 670 a 710 hacen lo mismo para la 
pregunta ¿Quieres ayuda 1? y las líneas 720 a 760 para ¿Quieres ayuda 2? 


Si TU USAR : 
, TÚ CALCULAR . 
SER BUENO ABACO. 


DIRECTORA 


Esta rutina dirige todo el programa. Empieza por cargar los caracteres gráficos ejecutando caracteres 
palo y bola , continúa por ejecutar MENU, para, si pos0 =0, ejecutar principal opl, que dirigirá la 
primera opción del programa, o, si pos0 =1, ejecutar principal 0p2 que dirigirá la segunda opción, para, a 
continuación, volver a ejecutar MENU. 

Esta rutina no termina nunca: si no hubiésemos puesto un final en cada opción el programa continuaría 
indefinidamente en una de las dos opciones. Es importante acostumbrarse a que el final del programa es 
algo que se debe prever de antemano, como si fuese otra opción más. 


PANTALLA 


La rutina pantalla es la más importante de esta segunda parte del ábaco y nos permite recorrer la 
pantalla en las 81 posiciones de las bolas sin salirnos de ella. 

La primera parte de la rutina es la que permite recorrer la pantalla, líneas 4420 a 4450, y para ello la 
línea 4420 comienza por asignar a la variable x el valor 9 y a y el valor 1. A continuación, la línea 4430 
resta uno a x si se pulsa el cursor a la izquierda y x es mayor que 1, y le suma 1 a x si se pulsa el cursor a 
la derecha y x es menor que 9. Hay que hacer notar que para que la suma o la resta tenga lugar se tienen 
que cumplir las dos condiciones: que se pulse la tecla, y que x sea mayor que 1 o menor que 9, ya que de 
otra manera x= x y x permanece invariable. 

De esta manera x puede variar entre 1 y 9, que son las bolas en el eje x. Para que esto tenga una 
traducción en las posiciones de escritura en la pantalla, la línea 4450 hace que la posición de x, px, sea Xx 
multiplicado por 3 con lo que px varía entre 1 y 27, y cada incremento de 1 en x tiene un correspondiente 
incremento de 3 en px. Como px será utilizado por las rutinas que pintan en la pantalla, se pintará cada 
tres espacios en el eje x. 


APLICACIONES SENCILLAS 


Esta parte del programa es diferente en el Spectrum y en el Plus, ya que los cursores del Plus han sido 
trasladados a los números que están debajo de los cursores en el Spectrum. 

Con respecto a y la rutina funciona de una manera muy similar, salvo que y varía entre 1 y 9, y py 
entre 18 y 10. Todo esto parece más complicado de lo que es, probablemente por el empleo de los 
operadores de relación condicionales, pero sin ellos la programación sería más complicada. 

La línea 4460 asigna a la variable ti el valor oportuno, es decir, ti vale 1 si x es menor de 4, 2 si x es 

menor de 7 y mayor de 3, y 4 si x es mayor de 6. La linea termina ejecutando la rutina pinta el cursor. 

Las lineas siguientes, 4470 a 4510, funcionan así: si no se puisa ninguna tecla o la tecla que se pulsa 
no es ni pni b ni e ni f, línea 4470, retorna a la linea 4430. A continuación las líneas 4480 a 4510, si se 
pulsa p se pone una bola ejecutando pinta una bola, si se pulsa b se borra la bola ejecutando borra una 
bola, si se pulsa e se ejecuta comprueba resultado, y, por último, si se pulsa f se vuelve al MENU. 

La rutina termina yendo a la linea 4430 para comprobar si se ha pulsado alguna tecla. 


PINTA UNA BOLA 


La función de esta rutina es asignar a la posición de eS (x, y) el valor del carácter gráfico que contiene 
la bola para ejecutar a continuación recorrido bola, que pintará la bola desde su posición inicial en la base 
del ábaco hasta su posición final en la barra. 


PINTA EL CURSOR 


La instrucción OVER 1 consigue que el o los puntos que pudiera haber en la pantalla donde se escribe 
O pinta algo con OVER 1 (OVER = encima, 1 = encendido) tomen el valor inverso. Es decir, pone un 
punto negro donde era blanco, y blanco donde era negro. La instrucción INVERSE 1 no guarda ninguna 
relación con la pantalla y sí con lo que se escribe en ella y hace lo mismo pero para lo que tiene que 
escribir. Así, PLOT OVER 1, 100, 100 pinta un punto negro en la pantalla (en realidad del color de la 
tinta) si en 100, 100 hay un punto blanco, y [LOT INVERSE 1; 100, 100 pinta un punto blanco en la 
pantalla independientemente de lo que haya en ella. . 

Esta rutina utiliza OVER 1 para poner y borrar el signo <, ya que, como explicamos arriba, la 
segunda impresión de < borrará la primera. De esta manera la línea 4730 pintará el signo y la 4770 lo 
borrará. Este signo se pinta y se borra en la posición py, px +1, el + 1 es necesario para que lo pinte al 
lado y no encima de la barra. Entre la escritura y el borrado de < está la línea 4760, hará una pausa de 
1/10 de segundo y ejecutará dos BEEP para avisar al usuario. 

Las líneas intercaladas, 4740-4750 y 4780-4790, sirven para escribir al lado del signo < el valor de y 
o una bola del color pertinente, dependiendo de que pos3 tenga como valor 1 ó 0. 


BORRA UNA BOLA 


Borrar una bola es sencillo, para ello basta con aginar a la posición x, y de eS (?, ?) el valor blanco, y 
escribir en la posición correspondiente de la pantalla otro blanco sobre fondo amarillo, para que sea del 
color del fondo de la pantalla. Lo primero lo hace la línea 4920, la 4930 borra la bola en la pantalla. 


COMPRUEBA EL RESULTADO 


Esta rutina comprueba si las bolas puestas en la pantalla corresponden al número que el aparato nos ha 
proporcionado. Para el aparato esto es muy sencillo. La rutina cálculos rellena la matriz m$ (?, ?) después 
de que el Spectrum genere el número al azar que nos va a pedir que representemos y antes de permitirnos 
empezar a representarlo. Con ello m$ (?, ?) contendrá las bolas que representan el número. Por tanto, para 
saber si el número que nosotros hemos representado es correcto, solamente hace falta comparar los valores 
de las dos matrices valor a valor, y ésta es precisamente la función del lazo doble de las líneas 5020 a 
5040. 


Este lazo doble consigue que si un solo valor entre las dos matrices m$ (?, ?) y e$ (?, ?) es diferente se 
escriba el cartel MAL en la posición 21, O de la pantalla y la rutina termine. Si todos los valores de ambas 
matrices son iguales, el número que el aparato nos ha dado, en la opción 2, está bien represertado. 

En el caso de que ambas matrices sean iguales y, por tanto, el número esté bien representado, la línea 
5050 ejecuta un lazo que hace sonar un BEEP y, a continuación, ejecuta de nuevo el programa. Á veces es 
útil esta solución para salir de una rutina que, como ésta, presenta la necesidad de nuevas variables para 
que no se produzcan errores posteriores. 


PRINCIPAL OPCION 2 


Esta rutina, como en el caso de principal opción 1, dirige la opción 2 y comienza por poner la 
pantalla de color amarillo, línea 5120. La línea 5130 tiene el INPUT que permite introducir el número de 
cifras que queremos que tenga el número generado por el Spectrum. 

Las líneas 5140 y 5150 comprueban que se haya escrito como respuesta al INPUT fin o menú y para 
ello, si la longitud de n$ es mayor de tres, comprueba carácter a carácter aceptando las letras de la palabra 
fin ya sean mayúsculas o minúsculas. Si la longitud es mayor de cuatro comprueba los caracteres de la 
respuesta igual que en el caso de fin para la palabra menú. 

La línea siguiente, $160, comienza por asignar a la variable nc el valor numérico de la cadena n$; así, 
si la cadena contiene el carácter “7” ne contendrá el número 7. A continuación se comprueba si ne es 
mayor de 9 o menor de 2, en cuyo caso el número generado sería muy grande o muy pequeño. Si el número 
es menor de 2 escribe la frase que hay a continuación, que hemos puesto para que el que está jugando con 
el ábaco utilice, al menos, dos barras. Si se desea que admita el 1 sólo se necesita cambiar este valor. 

El lazo de la linea 5170 permite generar un número al azar con una cantidad de cifras fijada por ne 
(número de cifras). Para ello se genera una cadena de caracteres con la longitud de nc. Se comienza por 


asignarle a n$ el valor CHR$ O y se le suma a esta cadena vacía un carácter entre el código ASCII 48 y el 
57. Como el código ASCII 48 es el cero, y el 57 el 9, la cadena contendrá directamente los caracteres de 
un número de cifras nc. Es importante puntualizar que la cadena no contiene un número sino los caracteres 
que forman este número, pero para representarlo necesitamos los caracteres y no el valor numérico. 

A continuación la rutina ejecuta una serie de GO SUB que pondrán en marcha las rutinas necesarias 
en la opción 2. Así, ejecuta sucesivamente; pone a cero la matriz, historieta , pinta el ábaco, cálculos y 
pantalla, para, si llega la cuestión, volver a ejecutar principal op2. 
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Abaco 16 K 


El programa para la versión de 16K no ha sido modificado mucho, en esta segunda parte las 
modificaciones introducidas son las explicadas para el Plus, pero se han suprimido todos los REM para 
que el programa pueda ser ejecutado con la memoria disponible. Es obvio que cuando decimos que es igual 
al de las otras versiones nos referimos al programa sin historieta, Escribe 3 ni Amapola, como os lo 
incluimos en el número anterior de la revista. 


SUBRUTINAS 


SUB4m Cuad 


INTRODUCCION 


La rutina que os presentamos es la última de la serie ““cuadriláteros””, si vosotros no decidís otra cosa, 
y le hemos llamado cuad porque dibuja en la pantalla cuadriláteros rectángulos, pero con espacios entre 
los puntos variables. Esta variación puede estar entre un número mínimo de O, y entonces serán cuadri- 
láteros rellenos, como en el caso de la anterior, hasta un máximo de la longitud del cuadrilátero. Estos 
espacios entre puntos pueden ser variables para ambos ejes. Creemos que la rutina es de uso general y | 
puede ser útil en múltiples ocasiones. En cierto modo sustituye a SUB3m pero no a SUB2m, puesto que * 
no puede dibujar cuadriláteros vacíos. 


PROGRAMAS CON SUB4m 


Hemos grabado los programas habituales para la utilización de SUB4m. El primer SUB4m contiene la 
rutina escrita como DATA en un pequeño programa BASIC que la carga y la ejecuta una vez. El 
programa se carga con LOAD y se ejecuta con RUN. 

También, como de costumbre, SUB4mel es un programa BASIC que, como SUB4m, carga la rutina 
en la memoria con el empleo de DATA, READ y POKE, pero en este programa hay varios ejemplos del 
empleo de SUB4m, SUB4me2 es otro programa BASIC pero esta vez la rutina se carga directamente 
como bytes en la memoria RAM, gracias a LOAD “*?” CODE. - 

Estos dos programas se cargan con LOAD pero, mientras que SUB4m es autosuficiente ya que lleva 
la rutina en los DATA, en el caso de SUB4me2 es necesario cargar la rutina. El programa, cuando se 
ejecuta, pone en la pantalla el cartel de cargo c.m., es decir, hay que poner en marcha la cassette para 
cargar los bytes de SUB4m. Por último, y también como siempre, SUB4mc contiene los bytes del código 
máquina y por tanto hay que darle valores a los parámetros y cambiar la dirección de donde los carga. 


PARAMETROS 


La rutina tiene dos parámetros más que SUB2m y SUB3m que son la separación de los puntos. 
1.— 1x: es la longitud en el eje x de los dos lados del paralelogramo en el eje x. 
2.— ly: es la longitud en el eje y de los dos lados del paralelogramo en el eje y. 
3.— x0: es la posición en el eje x del comienzo del dibujo. 
4.— y0: es la posición en el eje y del comienzo del dibujo. 
S.— mx: separación entre los puntos dibujados en el eje x. 
6.— ny: separación entre los puntos dibujados en el eje y. 


SUBRUTINAS 


LIMITES DE LOS ARGUMENTOS 


1.— 1x: puede oscilar entre —255 y +255 
2.— ly: puede oscilar entre —255 y +255 


3.— x0: puede oscilar entre —255 y +255 
4.— y0: puede oscilar entre —255 y +255 
5.— mx: puede oscilar entre —255 y +255 
6.— ny: ¡Atención a y0 + ny<0! 


DESCRIPCION DE LA RUTINA 


Esta rutina consta en realidad de dos partes distintas; en la primera tratamos de evitar que pueda 
cometer errores, en la segunda se dibuja en la pantalla el cuadrilátero. 

La rutina comienza, como las otras dos, guardando en el “stack” el registro IX, índice x, y abriendo el 
canal correspondiente a la parte mayoritaria de la pantalla, canal 2, con Id a, 2 y call 5633. La rutina que 
empieza en la dirección 5633 de la ROM del Spectrum abre el canal correspondiente al número que haya 
en el acumulador cuando se llama con call 5633. Los números más interesantes son: O y 1 canal K, 2 
canal S y 3 canal P. Que son: K para el teclado, S pantalla y P impresora. Cualquiera de ellos se puede 
abrir cargando el número correspondiente en el acumulador y llamando a la rutina abre canal con 
call 5633.(Key, Screen, Printer). 

A continuación, y como siempre, se carga en el registro 1X la dirección del primer byte o cabecera del 
registro IX, es decir, la dirección de los argumentos de la rutina. A partir de aquí, y siempre que no se 
cambie la dirección de memoria a la que apunta este registro, en los desplazamientos indicados por 
(IX + d), el d indicará posiciones de memoria a partir de esta inicial que le hemos dado. Por tanto, y como 
los parámetros los hemos colocado al principio de la rutina, le indicamos la dirección donde empiezan. 

Esta dirección, para aquellos que no se hayan dado cuenta. es la que la rutina carga c, m, de los 
programas me2 cambia para adaptar la rutina a la versión del Spectrum. De hecho, cambiando simplemen- 
te los dos bytes 10 y 11 de la rutina podemos colocar los parámetros donde consideremos más 
conveniente, ya que no hay motivo para que estén donde nosotros los colocamos, es decir, delante de la 
rutina. Para calcular los nuevos bytes se hace como para calcular los bytes de cualquier dirección del Z80: 
el más significativo se obtiene de dividir la dirección por 256 y el menos de multiplicar el resto de la 
división anterior por 256. Para colocar los bytes en la memoria hay que tener en cuenta que el Z80 es algo 
particular y lleva el byte menos significativo delante. 

A continuación vienen dos fragmentos de programa que permiten comprobar si las posiciones IX + 4, 
ny, o 1X + 5, nx contienen cero. Para ello se carga en el acumulador la dirección de memoria adecuada y 
se ejecuta un AND al acumulador. De esta manera, y dado que AND posiciona la bandera Z a O, si el 
resultado no es cero, cualquier número que contenga el acumulador que no sea cero, con el que se ejecute 
un AND. da como resultado no cero y. por tanto. Z se posicionará a cero. De esta manera y dado que jr Z, 
disp salta un número de bytes indicado por disp cuando Z es 1, la siguiente instrucción saltará 3 bytes si Z 
es 1. Para que Z sea | el número cargado en el acumulador tiene que ser cero. 


Para poner esto de una manera más fácilmente comprensible pondremos un ejemplo en el que el AND 
se hace entre el acumulador y un dato. Suponiendo que el acumulador contenga el número 12 y ejecutemos 
AND 7, pasará lo siguiente: 


acumulador ae e bandera 2 
and 7 


resultado 


SUBRUTINAS 


jr nz, 3 salta 3 bytes si Z es cero 


jr z, desp: salta los bytes indicados por desplazamiento si Z es uno 
and a:and del acumulador con el acumulador 


acumulador 
and a 


resultado 


pero si el acumulador contiene cero 


29002909 
20200220 


jr nz, 3 no salta porque Z es 1 


De esta manera si nx o ny fuese cero el jr nz, 3 no saltaría y la correspondiente dirección de memoria 
IX + ?, 4065 sería incrementada en una unidad. Esto se hace así ya que si fuesen cero, los lazos que vienen 
a continuación, basados en una suma, no terminarían nunca, bloqueando el aparato. 

Los dos fragmentos siguientes del programa comprueban que ni IX +2, y0, ni IX +0, ly sean 


mayores que 175 y, si alguno de ellos lo es, le resta una unidad y vuelve a comprobar si es mayor de 175 
hasta que el resultado sea 175, que salta a la siguiente comprobación. 


uno 


SUBRUTINAS 


La instrucción cp d substrae el contenido del registro d al del acumulador a. El resultado no modifica 
el acumulador pero sí modifica las banderas. De esta manera si la bandera de arrastre (carry) es cero, es 
decir, no hay arrastre, entonces el primer jr nc salta a dos. Por tanto el lazo estará funcionando, si IX + 2 
contiene un número mayor de 175, restándole uno (dec (IX + 2)) a IX + 2 hasta que IX + 2 sea 175 o 
menor. El lazo siguiente funciona de la misma manera. 

El programa continúa de la misma manera que SUB2m, es decir, calculando la suma de ly +y0 y de 
Ix + x0 que posteriormente guarda en IX + 6 y IX +7. A continuación se guardan IX +0, ly y IX + 1, 
1x en IX + 8 y IX + 9, debido a que queremos conservar los argumentos de los parámetros y estos dos 
números van a ser modificados por la rutina. 


1d b, *1X+8); ly 

E e o 

14.8, (1X+2); yO 

ld e, (1x4); x0 

1d a, d; ly 

add a, b; 1y+y0 

ld d, a; Ly+y0 

ld a, es lx 

|  1x+x0 

1d e, a; 1x+x9 

ld (12+6), d: 1ly+y9 
(147), es 1x+x0 
b. t1X+2) 


1d 


A continuación hay otro fragmento del programa que evita un posible error, ya que evita que ly + 0 
sea mayor de 175. Por ello resta 175 en a con d y si hay arrastre (carry) decrementa IX + 6 hasta que no 
lo haya. 

La rutina continúa de manera parecida a las otras, es decir, carga en b y e los valores de los 
argumentos de PLOT, que son y en b y x en e y llama a PLOT en ROM. 


SUBRUTINAS 


Continúa cargando en b IX+4, que es ny en a, IX+8, que es y0, los suma, y guarda en IX+8 la 
suma. 


De esta manera IX+8 guarda ahora y0+ny. A continuación compara v0+ ny. IX+8 con y0+1y, 


1X+6 y si es menor o igual salta a PINTA 1, ver notado en página 24, 60339 a 60346 y al principio de 


ce Si es mayor regenera IX+8 que ha ido adquiriendo el valor de y0+ny...+ny para que con- 


1d b, *1X+2); y0 


1d (1X+8), b; yQ 


Continúa sumando x0, IX+9, a nx, IX+5, y guarda en IX+9 la suma. 


ID, (1IX4SO 


1d a, (1X4+9); 


add a, tb 


ec), a 


El jr e, 12 sirve para que la rutina termine si la suma es mayor de 255, para evitar que continúe al 
comienzo de la pantalla. Á continuación se compara la posición IX +7, lx + x0, con 1X + 9 que es 
nx + xÓ0 ... nx y si es mayor lx + x0 que nx + xÓ0 la rutina continúa su ejecución en 60319, que es 
Id b, (IX + 8). Si es menor la rutina continúa devolviendo al registro índice IX su valor original, tomán- 
dolo del STACK en donce se había guardado al comienzo, POP 1X, dirección 60219, y vuelve al BASIC 
return. 
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SUBRUTINAS 


El programa está construido como siempre, es decir, consta de una serie de secuencias de llamada que 
pretendemos sean otros tantos ejemplos de casos en los que se puede utilizar SUB4m. La rutina está en 
DATA a partir de la línea 8000 y se carga en la memoria RAM por la rutina carga. 

La primera secuencia de llamada, líneas 100 a 260, que dibuja unas líneas horizontales que se 
desplazan hacia abajo, está constituida por un lazo dentro del cual hemos incluido la asignación de los 
valores de los argumentos de la rutina. Si os fijáis comprobaréis que dentro del lazo sobran todas las líneas 
menos 3, la 180, la 190 y la 250, ya que el resto asignan siempre el mismo valor a las variables y por tanto 
podrían estar fuera del lazo. Si las hemos puesto dentro se debe a que así es inmediato el cambio un valor 
por s y la comprobación del resultado. Aunque hacerlo así disminuye la velocidad de ejecución de la 
secuencia de llamada, de todas maneras su ejecución es rápida. Para determinadas variables se cometen 
errores, al cambiar su valor constante por s, y para otras se bloquea el aparato. No hay que preocuparse 
por ello, basta volver a cargar el programa después de desenchufar el aparato para desbloquearlo. 

La segunda secuencia, líneas 400 a 490, dibuja, utilizando para variar nx y ny una función sinusoidal, 
líneas horizontales entrecortadas. Los otros valores de los parámetros que utilizará la secuencia son los 
que le hemos asignado en la primera secuencia de llamada. La hemos puesto para que observéis que nx y 
ny pueden tomar valores muy diversos, y hasta negativos, sin que el aparato se bloquee. 


La tercera secuencia de llamada, líneas 600 a 690, dibuja una sola línea cada vez y, gracias a la 
variación de y0, línea 650:2, esta línea asciende en la pantalla. Como últimamente no lo hemos 
comentado, hay que observar que las líneas 190, 460, 660, 860, 1460, 1470 y 1660 sirven para cambiar 
los colores y funcionan de manera que sea s el número que sea, ti o pa oscilan entre O y el valor del 
divisor, en la línea 190, seis. ; 


_ La cuarta secuencia, líneas 800 a 900, hace lo mismo que la anterior pero con líneas verticales. La 
quinta, líneas 1000 a 1100, dibuja la típica función sinusoidal utilizando como puntos cuadriláteros 
punteados. Para ello se varían, como siempre, x0 e y0. La siguiente secuencia, líneas 1200 a 1290, varía 
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—SUBRUTINAS 


nx para que dibuje líneas horizontales que tienen entre ellas una separación cada vez más grande. La 
secuencia de llamada 7 cuadricula la pantalla variando la dimensión de los cuadros. La secuencia 8 es 
otro dibujo horizontal cambiante. 

La secuencia de llamada 9, líneas 1900 a 1990, está más elaborada y sirve para pintar cuadrículas en 
la pantalla. Hemos dibujado algunas y, en la central, hemos rellenado dos cuadros para que os sirva como 
ejemplo. Para ello, la secuencia comienza, línea 1920, por fijar los valores de ti, tinta, pa, papel, ov, 
OVER (encima), fl, FLASH (parpadeo), in, INVERSE (inverso), x0 en 200 e y0 en 120. Con estos 
atributos y en la posición 200, 120 de la pantalla, la secuencia fija como longitudes de 1x y 1y 48, como 
separación entre los puntos de x de 8 y entre los de y de O. Hay que hacer notar que las separaciones entre 
puntos de O y de 1 son iguales, ya que las de O la rutina las convierte en 1 y las de 1 no las cambia. A 
continuación se ejecuta SUB4m, que dibujará las rayas verticales de la cuadrícula para, cambiando los 
valores de nx a O y de ny a S, volver a ejecutarla para dibujar las rayas horizontales. La siguiente línea, 
1930, cambia los valores de x0 e y0 y dibuja otra cuadrícula en esta posición de la misma longitud pero 
con una separación mayor entre rayas fijando para nx el valor 12 y después para ny el mismo valor. El 
resto de las líneas de la secuencia son muy parecidas, incluso 1970 y 1980, que dibujan dentro de la 
cuadrícula central. 

Por último, la secuencia de llamada 10, líneas 2000 a 2070, dibuja los ejes de coordenadas en la 
pantalla, los divide, y dibuja una cuadrícula en el primer cuadrante. Para dibujar los ejes solamente hay 
que fijar una longitud de 1x pequeña, para el eje y, en este caso de 4, línea 2020, y darle a nx y ny el valor 
0 ó 1, con lo que se dibuja una raya de cuatro “pixels” continua. Las divisiones en los ejes son igualmente 
fáciles de dibujar aprovechando nx y ny. Por último, la cuadrícula es igualmente sencilla, y su dibujo se 
hace como los de la secuencia de llamada 9. Como se puede apreciar, la rutina puede realizar gran 
cantidad de dibujos diferentes en la pantalla, pero sobre todo los relacionados con la división de la pantalla 
en sectores, y los dibujos de ejes de coordenadas. 
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SUB4me2 


El programa SUB4me2, como siempre, utiliza la rutina en código máquina cargándola en la memoria 
directamente y, como siempre también, esto lo hace la rutina carga c.m. del programa. Hay que 
puntualizar que nosotros necesitamos utilizar esta rutina para cargar el código en el lugar oportuno de las 
versiones 16K y 48K pero esto no es necesario para vosotros que, en realidad, podéis substituir la rutina 
carga c.m. por una rutina muy sencilla que carga el c.m. en el lugar que queráis siempre que éste sea 
siempre el mismo para todos los programas donde utilicéis SUB4m. Los datos necesarios para elaborar 
este programa los tiene carga c.m. 


El programa SUB4me2 tiene seis pequeñas rutinas que son: 
1.—ejes 
2.—función -ax*x+bx-c 
*3.—ejecuta 
4.—parámetros 
5.—ejecución 
6.—carga c.m. 


La rutina ejecuta hace funcionar todo el programa una vez cargados por carga c.m. los bytes de 
SUB4m en el lugar oportuno de la memoria RAM. La rutina comienza por ejecutar ejes que pintan los ejes 
de coordenadas en la pantalla y los divide. Continúa ejecutando función -ax*x+bx-ce cuyo cometido es 
representar dicha función en la pantalla, siendo a=1.8, b=36 y c=10, y el intervalo de valores 
representado entre 0.8 y 19.3. Una vez ha dibujado la función entre estos límites, hace una pausa de unos 
4 segundos, línea 1240, borra la pantalla y pone el color de la tinta en azul. 


A continuación el programa continúa, línea 1250, ejecutando la rutina ejes, para continuar pidiendo, 
por medio de un INPUT valores de longitudes de 1x y ly para dibujar barras'en los nuevos ejes, líneas 
1260 y 1270, limitando los valores que sé pueden dar en la línea 1280. A continuación la rutina continúa 
preguntando separaciones de los puntos en ambos ejes, líneas 1290 y 1300,'“por medio de otros dos 
INPUT para en la línea siguiente evitar los errores en la respuesta. La siguiente-línea nos permite mover 
en el eje x la posición de las barras. La línea siguiente asigna a y0 el valor cero para que las barras 
dibujadas empiecen pegadas al eje x, y la 1340 evita los errores en la posición de la barra a dibujar. 


La línea 1350 contiene otro INPUT que permite dar el color que se quiera a la barra, incluso el 
blanco, que puede utilizarse para borrar. Este INPUT permite terminar el programa por medio de 
contestar 9 al color lo que comprueba la línea 1360. La 1370 evita que se den valores a ti que provocarían 
un error y la 1380 ejecuta SUB4m. La rutina termina con un GO TO que va a la línea 1260 para permitir 
“dibujar la siguiente barra. 


La rutina ejes funciona dando valores a los parámetros de SUB4m y ejecutándola. Hemos puesto una 
instrucción por línea para que podáis variarlas a vuestro gusto. Las rutinas parámetros, ejecución y carga 
c.m. ya las hemos explicado en otros números de la revista. 
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En la pág. 32 donde dice 65031 debe decir 65255. 
Pág. 32 n.27 1x+x0 =x0; y listado pág. 34. 
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